小弟提两个关于ComboBox的问题!希望在本世纪能得到答案!(50分)

  • 主题发起人 主题发起人 sh9
  • 开始时间 开始时间
S

sh9

Unregistered / Unconfirmed
GUEST, unregistred user!
1.请问怎样在ComboBox里加入图标,如IE的地址栏一样!
2.请问如何让ComboBox在不通过鼠标点击的情况下自动打开下拉列表框。
希望在本世纪能得到答案!
 
1 有画布吗,把IMAGE画上去就行了呀。
 
希望下个世纪你能自觉结束或提前自己的帖子。
 
2: combobox1.DroppedDown:=true;

1. 估计得自己写程序了, ondrawitem事件
 
;1.你可以修改ComboBox的style属性为 csOnwer... ,然后自己编写它的OnDrawItem
就可以了。
2.你若想让Combobox自动下拉,不如用List好了。
 
focused or send mw_keydown 'F4'
or combobox1.DroppedDown := true
 
请参考以下代码:
function rect2(left,top,width,heigth:integer):Trect;
begin
result:=rect(left,top,left+width,top+heigth);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.DroppedDown := true
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
bmp:Tbitmap;
MyRect, MyOther: TRect;
begin
MyRect:=Rect2(0,0+index*16,16,16);
myother:=rect2(0,0,16,16);
bmp:=Tbitmap.create;
combobox1.Canvas.Rectangle(rect);
ComboBox1.canvas.TextOut(rect.left+20,rect.Top,'dfdfd');
imagelist1.GetBitmap(index,bmp);
ComboBox1.Canvas.BrushCopy(MyRect, bmp, myother, clwhite);
bmp.Free;

end;
 
其实Delphi的很多控件都可以自己定制显示的,比如TComboBox, TListBox, TDrawGrid,
TDBGrid......
 
来自:wjiachun 时间:00-12-28 13:08:51 ID:427194
希望下个世纪你能自觉结束或提前自己的帖子。

 
各位,不好意思,还要麻烦一下。
如果我设置了Style为csOnwer... 之后,就不能再输入内容了,请问怎么办?
各位回答了的话,我可以另开贴子给分。
 
后退
顶部