OnDropDown(TCombobox)

[marabu]

Hallo Chris,

die Einschränkungen bei deinem Code machen deinen Ansatz eigentlich überflüssig, da das gleiche Ergebnis auch durch das Ereignis OnChange() der ComboBox erreicht werden kann:

Delphi-Quellcode:

procedure TDemoForm.DateComboChange(Sender: TObject);
begin
  with DateCombo do
  if ItemIndex > -1 then
    StatusBar.SimpleText := LongDayNames[DayOfWeek(StrToDate(Items[ItemIndex]))];
end;

Um auf die Mausbewegungen reagieren zu können muss man sich wohl den Fenstergriff der drop-down Liste mit CB_GETCOMBOBOXINFO besorgen und diesem Fenster eine eigene WindowProc unterschieben (subclassing).

Freundliche Grüße vom marabu