Mega Code Archive

 

Categories / Delphi / Examples

 

React on the minimize button

Title: React on the minimize button Question: Does anybody know how to capture the minimize button press and act on it before it actually minimizes the form? Answer: You should intercept WM_SYSCOMMAND messages like this: type TForm1 = class(TForm) public procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; end; procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then begin // your code... end; DefaultHandler(Msg); end;