Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Mainmenu mali problem?

[es] :: Pascal / Delphi / Kylix :: Mainmenu mali problem?

[ Pregleda: 1275 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

naskovic
Ljubisa Naskovic
Beograd/Aleksinac

Član broj: 108297
Poruke: 104
109.93.17.*

Sajt: www.nadjime.net


+1 Profil

icon Mainmenu mali problem?28.12.2009. u 15:49 - pre 173 meseci
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?
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Mainmenu mali problem?28.12.2009. u 16:49 - pre 173 meseci
> Kako da odredim caption za item koji je kliknut?

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

 
Odgovor na temu

naskovic
Ljubisa Naskovic
Beograd/Aleksinac

Član broj: 108297
Poruke: 104
109.93.17.*

Sajt: www.nadjime.net


+1 Profil

icon Re: Mainmenu mali problem?28.12.2009. u 17:15 - pre 173 meseci
Hvala puno to mi je resilo problem.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Mainmenu mali problem?

[ Pregleda: 1275 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.