請問我可以設定滑鼠移過去,ComboBox就自動下拉嗎?
ComboBox好像沒有MouseMove的Event,
我想做滑鼠移過去,ComboBox就自動展開

參考: http://objectmix.com/delphi/402284-combobox-onmousemove.html

type
TComboBoxCracker = class(TComboBox)
public
property OnMouseMove;
end;

procedure TForm1.cbxMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
//
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TComboBoxCracker(ComboBox1).OnMouseMove := cbxMouseMove;
end;