Question

delphi最小化 想在按钮 单击时间写窗体的最小化

编写了一个小软件 想在按钮 单击时间写窗体的最小化 怎么写啊？

？谢谢！

Answer 1

1. 利用wm_SysCommand及参数sc_Minimize:

procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
SendMessage(handle, wm_SysCommand, sc_Minimize, 0);
end;

2. 利用WindowState:

procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
ImgBtnMini.Cell := 1;
Form1.WindowState := wsMinimized;
end;