按窗口大小显示图像

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  image1.Top := 5;
  image1.Left := 5;
  image1.Width := form1.ClientWidth - 10;
  image1.Height := form1.ClientHeight - 10;     //设置Image1的位置
  image1.AutoSize := false;                     //Image不按图像大小自动调整
  image1.Stretch := true;                       //图像自动调节大小以适应Image
  image1.Picture.LoadFromFile('C:\1.bmp');      //加载图片
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  image1.Width := form1.ClientWidth - 10;       //当窗口改变时候自动重新计算图像大小
  image1.Height := form1.ClientHeight - 10;
end;

end.

 

转载于:https://www.cnblogs.com/endsnow/archive/2011/12/12/2284418.html