Ir para conteúdo
Fórum Script Brasil
  • 0

Papel De Parede No Form


Paulo Nobre

Pergunta

5 respostass a esta questão

Posts Recomendados

  • 0

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...

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...