Delphi-Quellcode:
Rohstoffe := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Add(Rohstoffe);
Rohstoffe.Caption := 'Rohstoffe';
for i := 0 to Stringliste.Count - 1 do
begin
RohEintraege[i] := TMenuItem.Create(Rohstoffe);
RohEintraege[i].OnClick := Form1.Holz1Click; //Die Zeile ist neu
Rohstoffe. Add(RohEintraege[i]);
RohEintraege[i].Caption := Stringliste[i];
end;
Dann noch:
Delphi-Quellcode:
procedure TForm1.Holz1Click(Sender: TObject);
begin
ShowMessage('Es klappt. *juhu*');
end;
und:
Delphi-Quellcode:
TForm1 = class(TForm)
...
procedure Holz1Click(Sender: TObject);
Und das klappt.
Jetzt noch die Frage, wie man die Prozeduren dynamisch einfügt, also nicht alle Items auf die gleiche Prozedur zugreifen.
Kann mir da einer weiterhelfen?
MfG
freak