procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
procedure TfrmDataServer.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if not CanClose then
begin
Self.WindowState := wsMinimized;
Visible := False;
TrayIcon.HideMainForm;
end;
end;
TrayIcon是一个系统托盘组件,你搜搜