unit2.pas

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

unit Unit2;

interface

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

type
  TSBox = class(TForm)
    FLBox: TFileListBox;
    DCBox: TDriveComboBox;
    FCBox: TFilterComboBox;
    DLBox: TDirectoryListBox;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Image1: TImage;
    Label1: TLabel;
    EdtFile: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FLBoxClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EdtFileKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
       FormCaption: string;
  public
    { Public declarations }
  end;

var
  SBox: TSBox;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TSBox.Button2Click(Sender: TObject);
begin
  FBox.show;
  SBox.Close;
end;

procedure TSBox.Button3Click(Sender: TObject);
begin
SBox.Close;
FBox.close;
end;

procedure TSBox.FLBoxClick(Sender: TObject);
var
  FileExt: string[5];
begin
    begin
    Image1.Picture.LoadFromFile(FLBox.Filename);
    end;
end;

procedure TSBox.Button1Click(Sender: TObject);
begin
  TBox.HorzScrollBar.Range := Image1.Picture.Width;
  TBox.VertScrollBar.Range := Image1.Picture.Height;
  TBox.Caption := Caption;
  TBox.Show;
  TBox.WindowState := wsNormal;
  TBox.Image1.Picture := Image1.Picture;
end;

procedure TSBox.EdtFileKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    FLBox.ApplyFilePath(EdtFile.Text);
    Key := #0;
  end;
end;

end.