[ inherited @ 02.11.2006. 22:03 ] @
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.
[ savkic @ 02.11.2006. 23:33 ] @
> 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;
[ bondja @ 03.11.2006. 07:51 ] @
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.
[ inherited @ 03.11.2006. 14:17 ] @
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?
[ Miloš Baić @ 03.11.2006. 14:22 ] @
Pozdrav,

ako si postavio na TForm1 - TMainMenu1, ukloni ga.
[ inherited @ 03.11.2006. 15:24 ] @
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...?