OnDropDown(TCombobox)

[danku]

in einer combobox stehen 5einträge (5 datume? oder datums? )
sobald ein item angeklickt wurde, wird anhand von dem datum der tag auf einen button geschrieben.

Delphi-Quellcode:

ShortDateFormat := 'dddd';
  ...
datum := StrToDate(cbdatum.items[cbdatum.itemindex]);
Button2.Caption := DateToStr(datum);

Es wäre doch aber schon cooler, sobald man die Dropdownliste öffnet und darin navigiert, das (ähnlich wie mouseover also ohne anklicken) der tag auf den button steht.

Delphi-Quellcode:

...

begin
  with cbdatum do
  ShortDateFormat := 'dddd';

  days[1] := 'Sunday';
  ...
  datum := StrToDate(cbdatum.items[cbdatum.itemindex]);

  Button2.Caption := DateToStr(datum);
end;