Criar um item dentro de um menu...

Delphi

05/05/2004

bom dia..
estou gerando um menu automatico mas nao estou conseguindo adicionar items a acada item principal..
alguem ai saberia como fazer isto

Arquivo/Sair
como inserir o sair dentro do menu arquivo???

para criar o menu arquivo uso o seguinte codigo
procedure TForm1.FormCreate(Sender: TObject);
var
menu: tmenuitem;
begin

with mainMenu1 do begin
Items.Clear;
menu := TMenuItem.Create(nil);
menu.Caption :=´Arquivo´;
menu.Name := ´Marquivo´;
// menu.OnClick := Button1Click;
Items.Add(Menu);
end;

end;

alguem saberia como adicionar o item ´sair´????


obrigado


Alexandrezendron

Alexandrezendron

Curtidas 0

Respostas

Beppe

Beppe

05/05/2004

Vc adiciona submenus da mesma forma q adiciona menus.

submenu := TMenuItem.Create(Menu);
menu.Caption :=´Sair´; 
menu.Items.Add(submenu);



GOSTEI 0
POSTAR