Mega Code Archive

 

Categories / Delphi / Forms

 

Formunuzun minimize maximize tuşlarının basıldığını anlama

public procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; ............ procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then Showmessage('Deneme'); //Burda istediğiniz işlemi gerçekleştirebilirsiniz DefaultHandler(Msg); end;