[Amin_Mansouri]

اگر بخواهید با کلیک بر روی فرم صفحه خود را minimize کنید Procedure های زیر را بالای برنامه خود قرار دهید

کد پی‌اچ‌پی:

procedure Tform1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := WS_EX_APPWINDOW;
end;

{I have tried with and with out the following procedure}
procedure Tform1.WMSyscommand(var Message: TWmSysCommand);
begin
case (Message.CmdType and $FFF0) of
SC_MINIMIZE:
begin
ShowWindow(Handle, SW_MINIMIZE);
Message.Result := 0;
end;
SC_RESTORE:
begin
ShowWindow(Handle, SW_RESTORE);
Message.Result := 0;
end;
else
inherited;
end;

end; 


و حالا بر روی دکمه خود کد زیر را وارد کنید .

کد پی‌اچ‌پی:

procedure TForm1.Button1Click(Sender: TObject);
var Message :  TWmSysCommand ;
begin
Message.CmdType    :=61472;
  WMSyscommand(Message  );