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!