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;