Hi!
Guckt euch mal bitte diesen Code an:
Delphi-Quellcode:
procedure TMainForm.AddFolderActionUpdate(Sender: TObject);
begin
if (Sender as TAction).ActionComponent is TMenuItem then //das hier klappt nicht
(Sender as TAction).Enabled := TreeView.PopUpNode <> nil
else
(Sender as TAction).Enabled := TreeView.Selected <> nil;
end;
Die Action wird entweder durch einen Button oder eine MenuItem eines PopUpMenüs ausgelöst.
Falls dieser Aufruf über das PopupMenü kommt wird ActionComponent aber nicht als TMenuItem erkannt.
Wo liegt der Fehler?
Grüße
Sebastian