Delphi ComboBox1DropDown 生成动态下拉列表

本文整理自网络，侵删。

 
描述
当您下拉列表时，此示例用一组打开的表单填充组合框的列表。每次下拉列表时都会重新生成列表，因此，如果应用程序打开或关闭表单，则组合框保持最新状态。

procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
  I: Integer;
begin
  with ComboBox1 do
  begin
    Items.BeginUpdate; { Prevent repaints until done. }
    Items.Clear; { Empty the list of any old values. }
    for I := 0 to Screen.CustomFormCount - 1 do
    begin
   Items.Add('www.delphitop.com');
    Items.EndUpdate; {Reenable painting. }
  end;

end;
 

相关阅读 >>

Delphi 谷歌api文本转换语音mp3文件

Delphi瞬间消除无用托盘图标(刷新托盘)

Delphi wm_copydata的应用

Delphi html转义字符编码转换

Delphi firedac 下的 sqlite [4] - 创建数据库

Delphi 使用tmemorystream保存多张图片到文件，并读取

Delphi sysem.json 链式写法

Delphi 批量多个字符串合并一个txt文件

Delphi tstringlist 排序 customsort

Delphi 判断字符串是否为纯字母组合

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi ComboBox1DropDown 生成动态下拉列表