ActiveDelphi

[porter]

boa tarde pessoal, no form principal do sistema, estou usando a rotina abaixo para quando clicar em minimizar a aplicacao seja minimizada, esta funcionando perfeitamente, so que quando clico no menu para abrir as opcoes, os itens do submenu nao aparecem, no menu tenho as seguintes opoces :

Manutencao Relatorios Ferramentas Utilitarios

Se clicar em Manutencao por exemplo, os itens do submenu nao aparece, o que tem de errado na rotina abaixo ?

uso Delphi 7, desde ja obrigado.


procedure TFormPrincipal.WMSysCommand(var Msg: TWMSysCommand);
begin
{ SE CLICAR NO MINIMIZAR DO FORM ... }
if (Msg.CmdType = SC_MINIMIZE) then begin
Application.Minimize;
end;
end;

[gilsonnrodrigues]

se vc tirar esse código os tais menus aparecem normalmente?

[porter]

se vc tirar esse código os tais menus aparecem normalmente?

Sim, aparecem normalmente, da forma que esta se clicar em Manutencao por exemplo, os itens referente a esse menu nao aparecem.