Super
Das hat wunderbar funktioniert!
Du hast meine Ferien gerettet^^ jetzt kann ich nämlich die Zeit über komplett durcharbeiten wenn ich langeweile hab
Danke dann nochmal an alle die mir geholfen haben für die schnellen Antworten .
mfg CUBE
Edit:
man ich hab hier probleme^^
Ich wollte ja eigentlich den Namen des MenuItems einer Variable zuordnen. Habe ich auch gemacht. Ich kann die Variable "vName" nachher ohne weiteres auf einem label wiedergeben. Das klappt soweit. Ich hatte ebenfalls vor "vName" von einem case of überprüfen zu lassen, damit ich wie ich vorhatte abhängig vom Namen des MenuItems, verschiedene Aktionen durchführen kann. Problem ist, dass ein Ordinaltyp erwartet wird. Kann es sein dass Case of nicht damit klarkommt dass vName eine Variable vom Typ String ist oder habe ich im Quellcode etwas vergessen?
Delphi-Quellcode:
procedure TForm1.Action1Execute(Sender: TObject);
var vName: String; //Variable die nachher vom Case of überprüft werden soll
begin
with Sender as TAction do
begin
if ActionComponent is TMenuItem then
vName := (TMenuItem(ActionComponent).name);
end;
case vName of //Case of Überprüfung
MenuItem1 : Label1.Caption := vName; //und hier entsprechende folge Aktion sofern vName "menuItem1 alst inhalt hat
end;
end;