Question

delphi 窗体 最小化事件是什么？ 我希望在点击最小化 隐藏窗体！

delphi 窗体 最小化事件是什么？

Answer 1

delphi中好象没有专门的窗体最小化事件，但是有一个窗体尺寸变量的事件OnResize
这样我们就可以在这个事件中对窗体的状态进行判断，判断窗体是否处于最小化状态，如果是入于最小化状态就执行你指定的代码就可以了。
procedure TForm1.FormResize(Sender: TObject);
begin
case WindowState of
wsMinimized: self.Visible:=false;//隐藏
end;
end;

Answer 2

事件是：OnResize
不过，要在FormResize处理过程中对窗体属性WindowState进行判断，当WindowState为wsMinimized时，即为窗口最小化。

procedure TForm1.FormResize(Sender: TObject);
begin
case WindowState of
wsMinimized: ShowMessage( '偶被最小化了' );
wsMaxmized: ShowMessage( '最大化' );
end;
end;

另外，楼上几位的方法也是可行的，甚至可以说更加“高级”，但对于初学者来说，需要学习更多的一些知识。

Answer 3

procedure TMainForm.FormCreate(Sender: TObject);
begin
Systray1.Active:=True;
Application.OnMinimize:=HideForm;
end;

procedure TMainForm.HideForm(Sender: TObject);
begin
self.Visible:=false;
end;
要是想简单点下载个abf控件里面有abfTrayIcon1这个控件
可以实现设置几个属性就可以了

Answer 4

自定义 这么一个过程就可以了：
在
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
public
这两个下面哪个里面定义都可以。
procedure TForm1.WMSysCommand;
begin
if Msg.CmdType = SC_MINIMIZE then
Form1.Hide;
DefaultHandler(Msg);
end;

Answer 5

放一个applicationevent控件，在最小化事件里写　self.hide