unitmain.pas

来自「使用DELPHI制作地虚拟光驱」· PAS 代码 · 共 69 行

unit UnitMain;

interface

uses
  UnitSetUp, 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, StdCtrls;

type
  TFormMain = class(TForm)
    TrayIcon1: TTrayIcon;
    popMenu: TPopupMenu;
    mSetUp: TMenuItem;
    mClose: TMenuItem;
    procedure mSetUpClick(Sender: TObject);
    procedure mCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    FFormSetUp : TFormSetUp;

    procedure ShowSetUp();
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}



procedure TFormMain.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  Self.Height := 0;
  Self.Width := 0; 
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  ShowSetUp();
end;

procedure TFormMain.mCloseClick(Sender: TObject);
begin
  Self.Close();
end;

procedure TFormMain.mSetUpClick(Sender: TObject);
begin
   ShowSetUp();

end;

procedure TFormMain.ShowSetUp;
begin
  if not Assigned(FFormSetUp) then
    FFormSetUp := TFormSetUp.Create(Self);
  FFormSetUp.Show();
end;

end.