///////////////////在窗体的onresize事件中添加/////////////////
procedure TF_server.FormResize(Sender: TObject);
begincase WindowState of
wsMinimized: self.Visible:=false;//隐藏
end;
end;
本文介绍了一个简单的窗口最小化处理方法,在Delphi等类似的Pascal语言环境中,通过在窗体的onresize事件中添加特定的代码实现窗口最小化时自我隐藏的功能。
///////////////////在窗体的onresize事件中添加/////////////////
procedure TF_server.FormResize(Sender: TObject);
begin
被折叠的 条评论
为什么被折叠?
