///在窗体的onresize事件中添加/ procedure TF_server.FormResize(Sender: TObject);begin case WindowState of wsMinimized: self.Visible:=false;//隐藏 end; end;