Ich habe einen Menü dessen Unterpunkte aus einer INI geladen werden und somit also immer wieder unterschiedlich sein können (Sie werden in einer Schleife abgearbeitet und immer gleich hinzugefügt).
Jetzt soll natürlich auch von jeden Menüpunkt darin etwas passieren und zwar je nach Menüpunkt.
Im Normalfall wäre es mit
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.LMenuPlus(Name:string);
var MenuItem1 : TMenuItem;
begin
MenuItem1 := TMenuItem.Create(Self);
MenuItem1.Caption := Name;
MenuItem1.OnClick := PROCEDURE
MainMenu1.Add(MenuItem1);
end; |
getan. Aber wenn ich jetzt Mehrere Menüpunkte habe müsste ich der Prozedure entweder Parameter übergeben (können), oder für jeden Menüpunkt eine andere Prozedure angeben können.
Wenn ich die Zeile
OnClick weglasse, dann funzt die Prozedure ganz gut . Will heissen, jeder aus der INI-Datei gelesene Eintrag erscheint als Menüpunkt, aber das bringt ja nicht viel, da ich dann ja die Menüpunkte nicht benutzen kann.
Kann mir damit vielleicht jemand helfen? Habe echt keine Ideen mehr.
