Mainmenu mali problem?

[ naskovic @ 28.12.2009. 15:49 ] @

Dakle postavio sam na formu mainmenu komponentu, i zelim da klikom na dugme dodam items u meni.U tome sam uspeo preko sledeceg koda

Code:

procedure TForm1.RunOnMM2Click(Sender: TObject);
begin
//neki kod
end;

procedure TForm1.Button1Click(Sender: TObject);
var
mmi1, mmi2: TMenuItem;
i:integer;
begin
mmi1 := TMenuItem.Create(Self);
mmi1.Caption := 'Proba1';
mainmenu1.Items.Add(mmi1);
for i:=0 to 10 do
begin
mmi2 := TMenuItem.Create(Self);
mmi2.Caption := 'Item-'+inttostr(i);
mmi2.OnClick := RunOnMM2Click;
mmi1.Add( mmi2);
end;
end;

E sad svakom dodatom item-u se dodaje procedura RunOnMM2Click preko koje zelim da prikazem caption tog itema-a
recimo ako kliknem na (item-7) u meniju da se prikaze poruka sa tekstom item-7 (preko showmessage("neki tekst");)
Kako da odredim caption za item koji je kliknut?

[ savkic @ 28.12.2009. 16:49 ] @

> Kako da odredim caption za item koji je kliknut?

procedure TForm1.RunOnMM2Click(Sender: TObject);
begin
TMenuItem(Sender).Caption;
end;