unit3.pas

一个看图程序 一个看图程序

unit Unit3;

interface

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

type
  TFullSize = class(TForm)
    ImgFull: TImage;
    procedure ImgFullDblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FullSize: TFullSize;
  Flag:integer;
implementation

uses Unit1;

{$R *.DFM}

procedure TFullSize.ImgFullDblClick(Sender: TObject);
begin
  if Flag=1 then
    begin
      BorderIcons:=[];
      WindowState:=wsMaximized;
      BorderStyle:=bsNone;
      Flag:=2;
    end
  else
    begin
      Flag:=1;
      Close;
    end;
end;

procedure TFullSize.FormActivate(Sender: TObject);
begin
  Flag:=1;
end;

end.