Question

Delphi中如何点击一下Button就执行最小化过程

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;