如何将delphi的整个form保存为图像?包含下拉条隐藏的部分。

    技术2022-05-11  64

     如何将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(注意!此人前途迷茫)   了!你前途光明!


    最新回复(0)