[TRUCO DELPHI] Capturar los botones de Maximizar y Minimizar.
Declaracion Publica
delphi
public procedure WMSysCommand (var Msg: TWMSysCommand); message WM_SYSCOMMAND;
Procedimiento
delphi
procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then MessageBeep(0); DefaultHandler(Msg); end;
Saludos!