Onclick Procedure

[jAcK oRsEn]

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;

[Bernhard Geyer]

Delphi-Quellcode:

procedure TForm1.starte(Sender : TObject);
begin
  if Sender is TMenuItem then
  begin
    ShowMessage((Sender as TMenuItem).Caption);
  end;
end;

[CalganX]

Hi,
versuch's mal mit
(Sender as TMenuItem).Caption Chris