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

TMainMenu, problem, kreiranje item -a???

[es] :: Pascal / Delphi / Kylix :: TMainMenu, problem, kreiranje item -a???

[ Pregleda: 2264 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.dialup.neobee.net.



Profil

icon TMainMenu, problem, kreiranje item -a???02.11.2006. u 22:03 - pre 211 meseci
Postavio sam na TForm, TMainMenu... I pokusavam duze vreme, par sati, pomocu helpa, interneta skontati kako iz koda da napravim, odnosno dodam item -e? Posle da iz koda prilikom klika na jedan od njih pozovem neku proceduru.
Hteo bih iz koda napraviti:
PRVI-> Prvi_Jedan, Prvi_Dva, ...
DRUGI-> Drugi_Jedan, Drugi_Dva, ...

PRVI, DRUGI = glavni meni
Prvi_Jedan, Prvi_Dva, ... = podmeniji
Code:
...
var MainMenu: TMainMenu;
...
begin
 MainMenu:= TMainMenu.Create(self);
 //dodavanje glavnih menija i podmenija???

Molim Vas da mi pomognete.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: TMainMenu, problem, kreiranje item -a???02.11.2006. u 23:33 - pre 211 meseci
> Postavio sam na TForm, TMainMenu... I pokusavam duze vreme, par sati, pomocu helpa, interneta skontati kako iz koda da napravim, odnosno dodam item -e?

Code:

var
  mm: TMainMenu;
  mmi: TMenuItem;
begin
  mm := TMainMenu.Create(Self);

  mmi := TMenuItem.Create(Self);
  mmi.Caption := 'Proba';
  mm.Items.Add(mmi);

  mmi := TMenuItem.Create(Self);
  mmi.Caption := 'Proba2';
  mm.Items.Add(mmi);
end;

 
Odgovor na temu

bondja

Član broj: 10286
Poruke: 167
*.adsl.static.sezampro.yu.



+3 Profil

icon Re: TMainMenu, problem, kreiranje item -a???03.11.2006. u 07:51 - pre 211 meseci
Ako sam razumeo, hoces da, kada kliknes na Proba1, da se otvori menu sa stavkama Proba2?
Onda je kod:

procedure TForm1.FormCreate(Sender: TObject);
var
mm: TMainMenu;
mmi1, mmi2: TMenuItem;
begin
mm := TMainMenu.Create(Self);

mmi1 := TMenuItem.Create(Self);
mmi1.Caption := 'Proba1';
mm.Items.Add(mmi1);

mmi2 := TMenuItem.Create(Self);
mmi2.Caption := 'Proba2';
mmi2.OnClick := RunOnMM2Click; <--- dodelimo na radi nesto na click
mmi1.Add( mmi2); <--- ovde je caka :)
end;

procedure TForm1.RunOnMM2Click(Sender: TObject);
begin
Showmessage( 'proba2');
end;

poz.
 
Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
212.200.177.*



Profil

icon Re: TMainMenu, problem, kreiranje item -a???03.11.2006. u 14:17 - pre 211 meseci
OK, momci, hvala na odgovru, verujem da je korektno, ali ne funkcionise kod mene. Tacnije, napisao sam isto kao i vi, ali nema za Caption 'Proba1', 'Proba2'!?! Izgleda da je odvojen prostor na meniju ali ne pise!?! Znaci, kod dela za Caption?
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.



Profil

icon Re: TMainMenu, problem, kreiranje item -a???03.11.2006. u 14:22 - pre 211 meseci
Pozdrav,

ako si postavio na TForm1 - TMainMenu1, ukloni ga.
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.kalik.info.



Profil

icon Re: TMainMenu, problem, kreiranje item -a???03.11.2006. u 15:24 - pre 211 meseci
Citat:
loshmiscg: ako si postavio na TForm1 - TMainMenu1, ukloni ga.

U pravu si.
Koliko sam skontao, pravi se vise instanci, klase i podklase. Tad se pise puno koda. Da li to moze, nekako krace...?
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: TMainMenu, problem, kreiranje item -a???

[ Pregleda: 2264 | Odgovora: 5 ] > FB > Twit

Postavi temu Odgovori

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