Menú principal que se comporte como en Windows Vista/7

[maiquemasque]

Empezado por x_aguilarf

Una solución mucho mejor que hace lo que pides:

Código Delphi [-]procedure TForm1.WndProc(var Message: TMessage); begin inherited; case Message.Msg of WM_EXITMENULOOP: begin Self.Menu := nil; end; WM_ENTERMENULOOP: begin Self.Menu := MainMenu1; end; end; end;


Saludos

Este código no me hace nada, no ocurre nada Muchas gracias de todas formas gracias a todos por vuestra atención. Al final he optado por simplemente dar la opción de mostrarlo o no mostrarlo.

Me habría gustado añadirle a parte de tener la opción de tenerlo fijo o no lo que se ha intentado aquí, pero no lo consigo.

Bueno, gracias de nuevo, un saludo