Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Renanbg

Desabilitar MainMenu

Recommended Posts

Descobri, para quem quiser..basta usar o codigo abaixo:

 

var

i: integer;

begin

for i:=0 to ComponentCount-1 do

begin

if (Components is TMenuItem) then

TMenuItem(Components).Enabled:=False;

end;

end;

 

e para voltar a habilitar:

 

var

i: integer;

begin

for i:=0 to ComponentCount-1 do

begin

if (Components is TMenuItem) then

TMenuItem(Components).Enabled:=True;

end;

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom, se ainda tem alguém atrás disso, achei um jeito melhor:

 

Para esconder o menu principal via código, basta:

 

//MainForm é o nome do formulário com o MainMenu
	MainForm.Menu := nil;

Para voltar a mostrar o MainMenu, é só mais 1 linha de código:

//MainForm é o nome do formulário com o MainMenu
	MainForm.Menu := MainMenu1;

Copiado descaradamente de (Fonte):

http://delphi.about.com/od/delphitips2007/...ainmenuhide.htm

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.