Ir al contenido


Foto

[TRUCO DELPHI] Capturar los botones de Maximizar y Minimizar.


  • 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 28 noviembre 2016 - 02:41

[TRUCO DELPHI] Capturar los botones de Maximizar y Minimizar.

 

Declaracion Publica


delphi
  1. public
  2. procedure WMSysCommand
  3. (var Msg: TWMSysCommand);
  4. message WM_SYSCOMMAND;

Procedimiento


delphi
  1. procedure TForm1.WMSysCommand;
  2. begin
  3. if (Msg.CmdType = SC_MINIMIZE) or
  4. (Msg.CmdType = SC_MAXIMIZE) then
  5. MessageBeep(0);
  6.  
  7. DefaultHandler(Msg);
  8. end;

Saludos!


  • 1




IP.Board spam blocked by CleanTalk.