如何将delphi的整个form保存为图像?包含下拉条隐藏的部分。
使用getformimage只可截取当前显示的部分,而下拉条以下的内容就看不到,望高人指点。痛苦中。
用截屏软件分别截取,然后用PS拼接。
多谢楼上指点。可是,这种事情我要在程序里面自动实现,因此不能采用你的方法。
在线等待。谢谢了。
ding!
不太了解这个东西,不过看了下getformimage源代码觉得可以根据该源代码修改来达到目的。以下代码仅供参考:procedure TForm1.BitBtn1Click(Sender: TObject);var ABitmap: TBitmap; i: Integer;begin ABitmap := TBitmap.Create; if Self.HorzScrollBar.Visible then ABitmap.Width := Self.HorzScrollBar.Range else ABitmap.Width := Self.ClientWidth; if Self.VertScrollBar.Visible then ABitmap.Height := Self.VertScrollBar.Range else ABitmap.Height := Self.ClientHeight; ABitmap.Canvas.Brush := Self.Canvas.Brush; ABitmap.Canvas.FillRect(ABitmap.Canvas.ClipRect); Self.Perform(WM_PAINT, ABitmap.Canvas.Handle, 0); for i := 0 to Self.ControlCount - 1 do begin with TControl(Self.Controls[i]) do if (Self.Controls[i] is TWinControl) and Visible then TWinControl(Self.Controls[i]).PaintTo(ABitmap.Canvas, Left, Top); end; ABitmap.SaveToFile('c:/1.bmp'); FreeAndNil(ABitmap);end;
太谢谢 hahafan(注意!此人前途迷茫) 了!你前途光明!