maincontrol.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 64 行

unit MainControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MDIBase, ExtCtrls, Buttons, ActnList, Menus, Main,
  StdCtrls;

type
  TfrmMainControl = class(TfrmMDIBase)
    pnlClient: TPanel;
    spbSystem: TSpeedButton;
    spbstock: TSpeedButton;
    spbexamine: TSpeedButton;
    spbaccount: TSpeedButton;
    ImgMain: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure WMClose(var Message: TWMClose); message WM_CLOSE; //截取Close消息
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMainControl    : TfrmMainControl;

implementation

uses Global;
{$R *.dfm}

//截取Close消息
procedure TfrmMainControl.WMClose(var Message: TWMClose);
begin
  abort;
end;

procedure TfrmMainControl.FormCreate(Sender: TObject);
begin
  inherited;
  //ImgTop.Picture.LoadFromFile('MainTop.Bmp');
  //ImgMain.Picture.LoadFromFile('MainGroup.Bmp');
end;

procedure TfrmMainControl.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
    inherited;
    //CanClose:=True;
end;

procedure TfrmMainControl.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    inherited;
    action:=caFree;
end;

end.