TMainMenu zur Laufzeit erstellen

Computer: Software & Programmierung Delphi & Pascal
#1

Hi!

Möchte gerne ein Menü „Datei“ zur Laufzeit erstellen.

Dabei habe ich folgenden Code zum Erstellen eines Menüpunktes

NewItem := TMenuItem.Create(Self);
NewItem.Caption :=’-’;
Projekte.Add(NewItem);

Brauche allerdings 9 davon :smile:

Wie kann ich jetzt die einzelnen Punkte anwählen bzw. verschiedenen oder einer Prozedur zuordnen?

Kann ich allen Items auch das Tag Property zuweisen 1-9 und das bei der Abfrage abarbeiten?

Suche Tipps Hilfe oder passende Links

Hilfe wäre super

#2

Hi PSB4ever,

du kannst der Eigenschaft Tag die Werte 1-9 zuweisen.
Erzeuge eine Procedure in der Art

procedure TForm1.OnMenuClick(Sender : TObject);
begin
 case TMenuItem(Sender).Tag of
 1 : ShowMessage('Menüpunkt1 geklickt');
 2 : ShowMessage('Menüpunkt2 geklickt');
 .
 .
 .
 9 : ShowMessage('Menüpunkt9 geklickt');
 end;
end;

und weise diese Procedure mit

NewItem.OnClick := OnMenuClick;

zu.

Gruß Michi

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Das hilft mir schon mal weiter :smile: - aber fehlt da nicht was beim Aufruf der Prozedur?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Sorry fehlt doch nix - mein Fehler - superdanke für die schnelle Antwort :smile:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]