摘要： const i = 1;//初始测试数据procedure TForm1.FormCreate(Sender: TObject);begin ListBox1.Items.CommaText := 'aaa,bbb,ccc'; ComboBox1.Items.CommaText := 'aaa,bbb,ccc';end;//对 ListBox1procedure TForm1.Button1Click(Sender: TObject);begin// ListBox1.Selected[i] := True; {常规方法} SendMessage(L... 阅读全文