Como capturar o conteúdo de um form em um objeto TImage

Delphi

02/11/2003

Gostaria de capturar o conteúdo de um form e salvá-lo em um TImage, sendo que o problema a princípio não é tão trivial, pois eu não quero salvar apenas a área visível, mais todo o conteúdo (quando a SCROLL estiver ativada), e na maioria das dicas ele captura como um PRINTSCREEN.

Obrigado


Luiz.far

Luiz.far

Curtidas 0

Respostas

Cebikyn

Cebikyn

02/11/2003

Tente Form1.GetFormImage (não sei se copia tudo, mas pode funcionar).

procedure TForm1.Button2Click(Sender: TObject); 
var 
  imgForm: TBitmap; 
begin 
  imgForm := TBitmap.Create; 
  try 
    imgForm := Form1.GetFormImage; 
    imgForm.SaveToFile(´c:\FormImage.bmp´);
  finally 
    imgForm.Free; 
  end; 
end;


Vc pode alterar o código a cima para por o Bitmap gerado em um TImage ou qualquer outro lugar que quiser.


GOSTEI 0
POSTAR