Ir al contenido


Foto

[TRUCO DELPHI] Crear un elemento en el Menu del Sistema.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 03:42

[TRUCO DELPHI] Crear un elemento en el Menu del Sistema.


delphi
  1. Type
  2. TForm1 = Class(TForm)
  3. procedure FormCreate(Sender: TObject);
  4. private
  5. procedure OnAppMessage(Var Msg: TMsg; Var Handled: Boolean);
  6. end;
  7.  
  8. Var
  9. Form1: TForm1;
  10.  
  11. implementation
  12.  
  13. Const
  14. cSC_MYMENUITEM = WM_USER + 1;
  15.  
  16. {$R *.DFM}
  17.  
  18. procedure TForm1.FormCreate(Sender: TObject);
  19. begin
  20. Application.OnMessage := OnAppMessage;
  21. AppendMenu(GetSystemMenu(Application.Handle, False), MF_SEPARATOR, 0, '');
  22. AppendMenu(GetSystemMenu(Application.Handle, False),
  23. MF_STRING, SC_MyMenuItem, 'Delphi Access');
  24. end;
  25.  
  26. procedure TForm1.OnAppMessage(Var Msg: TMsg; Var Handled: Boolean);
  27. begin
  28. If (Msg.Message = WM_SYSCOMMAND) And
  29. (Msg.wParam = cSC_MYMENUITEM) Then
  30. begin
  31. ShowMessage('Mensaje recibido');
  32. Handled := True;
  33. end;
  34. end;

Saludos!


  • 1