delphi ComboBoxEx的组件如何在主选项增加图标和文字

发布网友发布时间：2022-05-18 05:45

共1个回答

热心网友时间：2023-10-09 21:36

//参考如下代码去做
//code by onesue
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ImgList, ComCtrls;

type
TForm1 = class(TForm)
ComboBoxEx1: TComboBoxEx;
ImageList1: TImageList;
Button1: TButton;
Button2: TButton;
procere Button1Click(Sender: TObject);
procere Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procere TForm1.Button1Click(Sender: TObject);
var
oneItem: TComboExItem;
index:Integer ;
begin
//直接添加
index:= ComboBoxEx1.Items.IndexOf('Test');
if index=-1 then
begin
oneItem:=ComboBoxEx1.ItemsEx.Add;
oneItem.Caption:='Test';
if ComboBoxEx1.Images <>nil then //要指定图片列表
begin
oneItem.ImageIndex:=1;
end;
end;
end;

procere TForm1.Button2Click(Sender: TObject);
var
index:Integer ;
begin
//间接制定图片
index:= ComboBoxEx1.Items.IndexOf('Test2');
if index=-1 then
ComboBoxEx1.Items.Add('Test2');
index:= ComboBoxEx1.Items.IndexOf('Test2');
if index<>-1 then
begin
if ComboBoxEx1.Images <>nil then //要指定图片列表
begin
ComboBoxEx1.ItemsEx[index].ImageIndex:=0;
end;
end ;
end;

end.