S
starray
Unregistered / Unconfirmed
GUEST, unregistred user!
我想通过一个按钮来触发COMBOBOX的DROPDOWN的事件，请问如何实现？
S
svw0506
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.ComboBox1DropDown(Sender: TObject);
begin
ShowMessage('OK');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ComboBox1DropDown(nil);
end;
begin
ShowMessage('OK');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ComboBox1DropDown(nil);
end;
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
直接向 combobox发送 CB_SHOWDROPDOWN 消息：
procedure TForm1.Button3Click(Sender: TObject);
begin
sendmessage(combobox1.handle,CB_SHOWDROPDOWN,1 ,0);
end;
我已经调试成功了。
procedure TForm1.Button3Click(Sender: TObject);
begin
sendmessage(combobox1.handle,CB_SHOWDROPDOWN,1 ,0);
end;
我已经调试成功了。
L
LeeChange
Unregistered / Unconfirmed
GUEST, unregistred user!
ComboBox1.DroppedDown:=True
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
上面这种方法也可以。
李
李逍遥_神仙居
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.DroppedDown:=True;
end;
begin
ComboBox1.DroppedDown:=True;
end;
李
李逍遥_神仙居
Unregistered / Unconfirmed
GUEST, unregistred user!
哦!上面已经解答了,刚才还没有呢,速度真块!嘿嘿[
][]
][]
天
天与地
Unregistered / Unconfirmed
GUEST, unregistred user!
combobox1.DroppedDown:=true;
天
天与地
Unregistered / Unconfirmed
GUEST, unregistred user!
我试出来了，各位真快。
P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
to ：starray
给你三种方法：
1.ComboBox1DropDown(sender);//调用下拉事件过程
2.ComboBox1.DroppedDown:=True;// 设置属性
3.sendmessage(combobox1.handle,CB_showDropDwon,1 ,0);//发送一个下拉的消息
给你三种方法：
1.ComboBox1DropDown(sender);//调用下拉事件过程
2.ComboBox1.DroppedDown:=True;// 设置属性
3.sendmessage(combobox1.handle,CB_showDropDwon,1 ,0);//发送一个下拉的消息
S
starray
Unregistered / Unconfirmed
GUEST, unregistred user!
多谢各位
