Hi,
ich versuche ca 10 neue Menuitems zu erstellen....
Wenn man auf eines dieser Items klickt soll die Caption angezeigt werden.
Das versuche ich so, funktioniert aber leider nicht:
Delphi-Quellcode:
procedure TForm1.starte(Sender : TObject);
begin
ShowMEssage(sender ??? ); // keine ahnung wie
end;
...
for x := 0 to data.count - 1 do
begin
newitem := tmenuitem.create(Form1);
newitem.OnClick := starte;
newitem.Caption := data.strings[x];
favoriten1.add(newitem);
end;