Capturando a Imagem de um FORM

Delphi

04/11/2003

Bom dia,


Estou com uma dúvida e gostaria de saber se você pode me ajudar, o problema é o seguinte: Eu fiz um programa que cria objetos em tempo de execução (do tipo TMoveImage - É um Timage que se move quando clicamos e arrastamos), até aí tudo bem. Sendo que eu necessito salvar a imagem do form em um TImage para criar um relatório, sendo que o problema é que eu não posso salvá-lo como muitos exemplos mostram (como se fosse um printscreen), pois como o usuário move as imagens, ele pode colocar em uma área que não ficaria visível à um printscreen (a scroll iria ser ativada e ele não iria aparecer).

Você por acaso, sabe como resolver esse problema?

Desde já eu fico muito agradecido, e estou a disposição para tirar também suas dúvidas (geralmente estou on line e com o MSN aberto - luiz_far@hotmail.com, após a 24h)

Valeu

Luiz Fernando


Luiz.far

Luiz.far

Curtidas 0

Respostas

Ulbj05

Ulbj05

04/11/2003

Olá Caro,

para obter uma imagem do Form, use o método GetFormImage que retorna um TBirmap ( a imagem do Form ). Esta imagem vc pode armazenar em um TImage e posteriormente salvar no disco ou pode armazenar diretamente em seu relatório para visualização sem precisar salvar.
Este método é da classe TCustomForm ( ou seja é herdada por todo formulário ).
Use da seguinte forma:

var
  Bitmap: TBitmap
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap := Form1.GetFormImage; // Obtem imagem do form
    .... // Faz alguma coisa com a imagem obtida
  finally
    Bitmap.Free; // Libera a imagem
  end; // Try / finally
end;


Espero ter ajudado.
Um abraço. :P


GOSTEI 0
POSTAR