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;
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?