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转换 tcolor 到 html 颜色串

Delphi取得文件图标并在tlistview中显示

Delphi 英文单词第一个字母大写

Delphi 判断文件路径，不存在则建立

Delphi自动适应屏幕分辨率的属性

Delphi模拟文件拖拽

Delphi 根据文件扩展名判断文件类型函数写法

Delphi base64单元encddecd的修改

Delphi idtcpclient和idtcpserver主要属性

Delphi 如何用程序控制禁止和起用上网？

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

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