Papel De Parede No Form

[Paulo Nobre]

Saúde a todos

Alguém poderia me dizer como faço para que todo o form seja ocupado por uma figura bmp ou de outra extensão qualquer.

Obrigado

Paulo Nobre

[Corposemalma]

bota um componente image cobrindo todo o form....

[DELPHI-Man32]

na opção "Align" do Object Inspector nas propriedades do TImage,

coloque para "client"

VAGNER...

[DELPHI-Man32]

vai mais duas formas...

procedure TForm1. FormCreate(Sender:Tobject);

begin

grafico:= TBitmap.Create;

grafico.LoadFromFile ('C:\DIRETORIO\IMAGE.bmp');

end;

procedure TForm1.FormPaint(Sender:TObject);

begin

Form1.Canvas.Draw(0,0,grafico);

end;

end

-------------------------------------------------------------

Código Completo:

declara após o type junto aos outros procedimentos!

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

----

Procedure TForm1.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;

ExemploQuando o botão for clicado, uma imagem

será inserida no formulário, nas coordenadas (10,20);

procedure TForm1.Button1Click(Sender: TObject);

begin

Desenha('c:\windows\bolhas.bmp',10,20);

end;

VAGNER...

[Paulo Nobre]

Valeu moçada, muito obrigado.

Fiquei satisfeito com todas as dicas e respostas.

Caso resolvido

Abraços

Paulo Nobre

[DELPHI-Man32]

FECHANDO O tópico! :-)