OnDropDown(TCombobox)

[Christian Seehase]

Moin Danku,

wenn Du mit Tasten oder Mausrad navigierst kannst Du das so machen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    //...
    procedure WMCOMMAND(var Msg : TMessage); message WM_COMMAND;
    //...
  end;

implementation

procedure TForm1.WMCOMMAND(var Msg: TMessage);
begin
  if Msg.WParamHi = CBN_SELCHANGE then begin
    if ComboBox1.ItemIndex > -1 then begin
      Button1.Caption := ComboBox1.Items[ComboBox1.ItemIndex];
    end;
  end;
  inherited;
end;

Direkt mit MouseOver habe ich nichts gefunden.