uitemimage.pas

进销存以及BOM管理,SQl Server数据库程序

unit uitemimage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, base, MDIbase;

type
  Tfrmitemimage = class(Tfrmbase)
    imageitem: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure imageitemClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    windowssf:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmitemimage: Tfrmitemimage;

implementation

uses Global, main;

{$R *.dfm}

procedure Tfrmitemimage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmitemimage:=nil;
end;

procedure Tfrmitemimage.imageitemClick(Sender: TObject);
begin
  inherited;
  if windowssf then
    begin
      Windowstate:=wsNormal;
      windowssf:=False;
    end
    else
    begin
      Windowstate:=wsMaximized;
      windowssf:=True;
    end;
end;

procedure Tfrmitemimage.FormShow(Sender: TObject);
begin
  inherited;
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;

end.