作者在 2008-06-28 16:03:06 发布以下内容
procedure Button1Click(Sender : TObject);
var
img : TBitMap;
begin
img := TBitMap.Create;
Try
img.LoadFromFile('bmp圖片的絕對地址')；
With image1 do
begin
Picture.Bitmap.Handle := img.Handle;
Update;
Refresh;
end;
Finally
img.Free;
end;
end;