Cita:
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