u_server_main.pas

以多个信息系统为例

unit u_server_main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, TrayIcon, StdCtrls;

type
  TF_main = class(TForm)
    B_exit: TButton;
    B_hide: TButton;
    TrayNotifyIcon1: TTrayNotifyIcon;
    PopupMenu1: TPopupMenu;
    M_show: TMenuItem;
    M_exit: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure B_hideClick(Sender: TObject);
    procedure B_exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure M_showClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation


{$R *.DFM}

procedure TF_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caNone;
  Hide;
end;

procedure TF_main.B_hideClick(Sender: TObject);
begin
  Hide;
end;

procedure TF_main.B_exitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TF_main.FormCreate(Sender: TObject);
begin
  TrayNotifyIcon1.IconVisible:=True;
end;

procedure TF_main.M_showClick(Sender: TObject);
begin
  Show;
end;

end.