Diese Methode wird für jeden Menu Eintrag aufgerufen:
Delphi-Quellcode:
procedure kzTheme.NativeStyleClick(Sender: TObject);
var
StyleName: String;
i: Integer;
begin
StyleName := StripHotkey(TMenuItem(Sender).Caption);
TStyleManager.SetStyle(StyleName);
(Sender as TMenuItem).Checked := true;
for i := 0 to Pred(FMenuItem.Count) do
if (not FMenuItem.Items[i].Equals(Sender)) then
FMenuItem.Items[i].Checked := false;
end;
Ich hoffe es hilft Dir weiter.
Die ruft doch auch nur TStyleManager.SetStyle auf. Oder hab's ich was übersehen? Der Rest ist ja nur die Integration in ein TMenu...
Aber danke!
Das ist korrekt, nur leider weiß ich nicht wie Du Deine ListBox füllst, deswegen mein detaillierter Kode.