前面已经有人提过的问题，直接在窗口上画的图怎么保存？(50分)

多谢

我想可以把这副图copy到一个创建Tbitmap上
再对这个Tbitmap做存储工作

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
R: TRect;
begin
Bmp := TBitmap.Create;
try
R := Rect(0, 0, Width, Height);
Bmp.Width := Width;
Bmp.Height := Height;
Bmp.Canvas.CopyRect(R, Canvas, R);
Bmp.SaveToFile('D:/temp.bmp');
finally
Bmp.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Bmp: TBitmap;
R: TRect;
begin
Bmp := TBitmap.Create;
try
R := Rect(0, 0, Width, Height);
Bmp.LoadFromFile('D:/Photo/32pic02.BMP');
Canvas.CopyRect(R, Bmp.Canvas, R);
finally
Bmp.Free;
end;
end;

应该是可以地，我试试：）多谢