Question

delphi自动下拉菜单

当获取焦点以后，combobox自动下拉，失去焦点自动收回。
希望各位高手帮帮忙

Answer 1

这种编程你记住一个思想就对了，那就是windows系统消息。
在onEnter事件中加入以下代码就可以得到焦点后下拉，收回他是自动实现的。
procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
SendMessage(comBoBox1.Handle,CB_SHOWDROPDOWN,1,0);
end;

Answer 2

procedure TFormTrainFirst.ComboBox1Enter(Sender: TObject);
begin
TComboBox(sender).DroppedDown:=true;
end;

Answer 3

OnEnter里写上代码
procedure TFormTrainFirst.ComboBox1Enter(Sender: TObject);
begin
TComboBox(sender).DroppedDown:=true;
end;
失去焦点自动收回，这个不用写代码，会自动收回的。

Answer 4

Combobox1.SetFocus;
然后在OnEnter里写上代码
procedure TFormTrainFirst.ComboBox1Enter(Sender: TObject);
begin
Combobox1.DroppedDown:=true;
end;
就可以了