unit3.~pas

一个简单的DELPHI编写的看图程序

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl,StdCtrls, ExtCtrls, ExtDlgs,jpeg;

type
  TTBox = class(TForm)
    Bevel1: TBevel;
    Image1: TImage;
    BitBtn1: TButton;
    BitBtn2: TButton;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Button4: TButton;
    Button5: TButton;
    SavePictureDialog1: TSavePictureDialog;
    Button3: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TBox: TTBox;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TTBox.Button4Click(Sender: TObject);
begin
SBox.Show;
tbox.Close;
end;

procedure TTBox.Button5Click(Sender: TObject);
begin
 FBox.close
end;

procedure TTBox.Button3Click(Sender: TObject);
begin
     if SavePictureDialog1.Execute then
    Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;
end.