unit1.pas

Delphi7应用编程150例附书源码.rar

unit Unit1;

interface

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

type
  TfrmMain = class(TForm)
    btnOpen: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    procedure btnOpenClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;
  MyImage:TImage;
implementation

{$R *.dfm}

procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
    if self.OpenPictureDialog1.Execute then
    begin
        MyImage.Picture.LoadFromFile(self.OpenPictureDialog1.FileName);
    end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
    MyImage:=TImage.Create(self.Panel1);
    MyImage.Parent:=self.Panel1;
    MyImage.Visible:=true;
    MyImage.Align:=alClient;
    MyImage.Stretch:=true;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
begin
    MyImage.Free;
end;

end.