Delphi Demo代码“Demos/Doc/Graphex”里的问题，不知大家发现没有(100分)

Delphi提供了DEMO代码“C:/Program Files/Borland/Delphi6/Demos/Doc/Graphex”里面的画图的区域为何只有一小块，不会根着窗体大小变化。我试着在FormResize事件里加上了改变image大小的语名，但还是只有IMAGE初始大小的区域看得到画的线。

打D6补丁了没

1.Image的AutoSize為True,也就是說,Image中的Picture為多大,Image就有多大
2.Image中的Picture在FormCreate中就規定了
Bitmap.Width := 200;
Bitmap.Height := 200;

解決方法,把Image的AutoSize設為False

只在FormResize事件里加上了改变image大小不行，要将焦点给别的控件。再将焦点给image

我這樣改寫了代碼
private
procedure CreateNewBitmap;

procedure TForm1.CreateNewBitmap;
begin
Bitmap := nil;
try
Bitmap := TBitmap.Create;
Bitmap.Width := ClientWidth-45;;
Bitmap.Height := clientHeight-100;
Image.Width:=ClientWidth-30;
image.Height:=clientHeight-80;
Image.Picture.Graphic := Bitmap;
finally
Bitmap.Free;
end;
end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateNewBitmap;
end;

只能用Bitmap 来填充才能变大。结分了。