Mega Code Archive

 

Categories / Delphi / Forms

 

Formlarin maximize ve minimize butonlarina basildigini anlamak

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 istediginiz islemi gerceklestirebilirsiniz DefaultHandler(Msg); end;