var FBmp: TBitmap;
begin
FBmp:=TBitmap.Create;
FBmp.Width:=image1.Width;
FBmp.Height:=image1.Height;
FBmp.PixelFormat:=pf24bit;
FBmp.Canvas.CopyRect(Rect(0,0,FBmp.Width,FBmp.Height),
Form1.image1.Canvas,
Rect(0,0,FBmp.Width,FBmp.Height));
SaveDialog1.Execute;
FBmp.SaveToFile(SaveDialog1.FileName);
end;
或者用BitBlt也行