如何把TComboBox的下拉按钮中的三角改为...(100分)

  • 主题发起人 主题发起人 zyycc
  • 开始时间 开始时间
Z

zyycc

Unregistered / Unconfirmed
GUEST, unregistred user!
1.如何把TComboBox的下拉按钮中的三角改为...?
2.如何使得TComboBox的onDropDown不会产生下拉列表?
3.TCustomComboBox是如何产生一个编辑框和一个下拉按钮?
 
给你讲个故事,从前有一个人出外探险,到了XXX沙漠,不久便迷了路捆在沙漠中间。
陪伴他的只有一匹骆驼,他理智的认识到想走出沙漠是不太可能的了,于是开始胡思乱想
想道自己年纪轻轻才20来岁,想道自己一辈子还没碰过女人,想道XXX。。。越想越难过
突然,他发现了身边的骆驼(正好是头母的),于是他开始计划。。。
发现骆驼的腿太长,于是他开始在后面堆沙子,
等他堆到正好差不多的时候,新的问题又出来了---骆驼往前走了两步;
为了XXX,小伙子也不怕麻烦,于是他又堆
骆驼又往前走了两步;
。。。。。。
小伙子又气又急,没有半点办法。
过了一个时辰,这个年轻人突然发现远处有状况,走近一看是一个年轻貌美的MM、
好像快渴死了,年轻人想道反正是死,还不如死之前做点好事,就把自己的水全喂给
那个MM了,MM很快便醒了过来,看到自己的救命恩人,万分感动,便含情脉脉的问小伙子
“你需要我干任何事情我都会答应你的!。。。。。。”
小伙子听了激动不已。。。兴奋的对姑娘说:“你。。。你给我把这只骆驼牵着
。。。我。。。我好。。。在后面堆沙子。。。。!“
 
神马东西?
 
2.
style
我用过edit+listbox模拟combobox,感觉比combobox好
 
那故事好精彩哦。[:D]
 
奇怪!这个问题很难吗?
 
重载TComBobox类,先声明
TMYComboBox = class(TComBobox)
public
procedure Mpaint(var Message: TWMPaint); message WM_PAINT;
//重载
end;
procedure TMYComboBox.Mpaint;

var

C: TControlCanvas;
R: TRect;
begin
inherited;
C := TControlCanvas.Create;
try
C.Control:=Self;
with C do
begin
R := ClientRect;
R.Left := R.Right - GetSystemMetrics(SM_CXHTHUMB) - 1;
if DroppedDown then
begin
//画安下的时候
end
else
begin
//画抬起的时候
end;
end;
finally
C.Free;
end;
end;
 
重载 WM_LBUTTONDOWN 消息
procedure MLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
列表框就出不来了
 
这故事有个很好听的名字叫做:[h1][red]执着[/red][/h1][8D]
 
接受答案了.
 

Similar threads

后退
顶部