如何在Combobox的Item后添加一个按钮

cici0504 2010-09-10 02:39:23

RT
类似QQ2009的登录界面
在每一项的后面加一个删除按钮，表示点下这个按钮就会删除Combobox的这一项

...全文

644 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

iamduo 2010-09-14

打赏
举报

我记得可以在标题栏上画按钮。而且可以触发按钮的事件。
lz 找找帖子，然后把这个按钮画到 List 里看看有没有效果。

cici0504 2010-09-13

打赏
举报

真是厉害啊，用一个button控件代替那个‘x'可以吗
[Quote=引用 2 楼 bdmh 的回复:]
Delphi(Pascal) code

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.Font.Color := ComboBox1.Font.Color;
……
[/Quote]

musa2008 2010-09-10

打赏
举报

先把style ：= csOwnerDrawFixed；

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;

  Rect: TRect; State: TOwnerDrawState);

  var

    aRect : TRect;

begin

   aRect := Rect;

   aRect.Right := Rect.Right;

   aRect.Left :=  Rect.Left+80;

   ComboBox1.Canvas.Font.Color := clBlue;

   ComboBox1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,ComboBox1.Items[index]);

   ComboBox1.Canvas.Font.Color := clRed;

   ComboBox1.Canvas.TextRect(aRect,aRect.Right-20,aRect.Top,'X');

end;

YLCN2010 2010-09-10

打赏
举报



//x去掉就去掉呗

ComboBox1.Canvas.TextOut(Rect.Right - 16,Rect.Top,'');

cici0504 2010-09-10

打赏
举报

[Quote=引用 2 楼 bdmh 的回复:]
Delphi(Pascal) code

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.Font.Color := ComboBox1.Font.Color;
……
[/Quote]
那我要将下拉列表中的内容加到combobox的编辑框里，后面的‘x ’是不是也进去了，怎么把叉去掉呢？？

cici0504 2010-09-10

打赏
举报

那我要将下拉列表中的内容加到combobox的编辑框里，后面的‘x ’是不是也进去了，怎么把叉去掉呢？？

bdmh 2010-09-10

打赏
举报



procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;

  Rect: TRect; State: TOwnerDrawState);

begin

  ComboBox1.Canvas.Font.Color := ComboBox1.Font.Color;

  ComboBox1.Canvas.TextOut(Rect.Left,Rect.Top,ComboBox1.Items.Strings[index]);

  ComboBox1.Canvas.Font.Color := clRed;

  ComboBox1.Canvas.TextOut(Rect.Right - 16,Rect.Top,'x');

end;