TMainMenu, problem, kreiranje item -a???

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

Molim Vas da mi pomognete.

> Postavio sam na TForm, TMainMenu... I pokusavam duze vreme, par sati, pomocu helpa, interneta skontati kako iz koda da napravim, odnosno dodam item -e?

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

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.

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?

Pozdrav,

ako si postavio na TForm1 - TMainMenu1, ukloni ga.

Potpis

Someone's sitting in the shade today because someone planted a tree a long time ago.