COMBOBOX多选

最新推荐文章于 2024-03-11 22:31:47 发布

genispan

最新推荐文章于 2024-03-11 22:31:47 发布

阅读量2.2k

点赞数

文章标签： timer dropdown

本文链接：https://blog.csdn.net/genispan/article/details/3132760

版权

procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
PrevIndex := ComboBox1.ItemIndex;
cText := ComboBox1.Text;
end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if (ComboBox1.ItemIndex <> PrevIndex) and (ComboBox1.ItemIndex > -1) then
begin
    if Trim(cText) = '' then
      cText := ComboBox1.Items[ComboBox1.ItemIndex]
    else
      cText := cText + ',' + ComboBox1.Items[ComboBox1.ItemIndex];
    Timer1.Enabled := False;
    Timer1.Enabled := True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 50;
Timer1.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Trim(cText) <> '' then
begin
    Timer1.Enabled := False;
    ComboBox1.Text := cText;
    ComboBox1.SelectAll;
    cText := '';
end;
end;