关于image copyRect Resize，很急在线等待！！大虾救命呀！！！

[YoungKing]

窗体现处于normal状态。

image.align=alclient;
在formCreate中用CopyRect将image.canvas拷贝了图片。
但是，改变窗体使之处于最大化时，image.的图片并不随之扩大，我在formResize中写代码重新拷贝图片也不好用？就好像image的大小不变似的
但是调试出来的image.width和height均是变化的。
该怎么办？

[DWGZ]

在FormOnPaint时Copy, 给分吧

[YoungKing]

不好用呀，用FormOnPaint，已开始时并不拷贝！！！（delphi ver6.0 winxp）
程序开始运行时，看不到图片的!
只有当最大化时，则确实可以实现。

[YoungKing]

我考，高手在哪里呀？！
真的没有一个帮一下忙吗？

[DWGZ]

Form1Create时

RePaint;

[YoungKing]

谢谢！
不过，大哥,能不能建一个简单的工程试一下.
真的不好试，我都试过了...

[YoungKing]

我走了

[hxmforyou]

你在CopyRect函数中要拷贝的目标区域的Rect拉大成你需要的大小就可以了。
如把const Dest: TRect设置成你变大后的窗体的大小，就可以了。

[DWGZ]

非常抱歉应该是在OnResize时Repaint
unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
FBmp: TBitmap;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
FBmp := TBitmap.Create;
FBmp.LoadFromFile('F:\1.bmp');
//你还可以， Self.Brush.Bitmap := FBmp;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FBmp.Free;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.StretchDraw(ClientRect, FBmp);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Repaint;
end;