Buscar por:

Inserindo uma imagem no formulário

Código

{A dica abaixo apresenta o código para implementação da função para inserir uma imagem no fundo do formulário. A função permite que se especifique as coordenadas da imagem e qual o arquivo que contém a imagem.

Através do componente TBitMap é possível criar uma figura dinamicamente e especificar qual será a imagem, através do método LoadFromFile.

Para desenhar a imagem usa-se o componente Tcanvas, através do método Draw, que desenha um gráfico nas coordenadas especificadas.}

Procedure Desenha(figura:String;H,V:Integer); 

Var 

Imagem :TBitMap; 

begin 

Imagem := TBitMap.Create; 

Try 

Imagem.LoadFromFile(Figura); 

Canvas.Draw(H,V,Imagem); 

Except 

ShowMessage(' Arquivo não foi localizado !'); 

end; 

end; {Quando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20);}

procedure TForm1.Button1Click(Sender: TObject); 

begin 

Desenha('c:windowsbolhas.bmp',10,20); 

end;