Buscar

Como desenhar um bitmap num form?

Código

Var
Form1: TForm1;
Bmp: TBitmap;
implementation
{$R *.DFM}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp:=TBitmap.Create;
  Bmp.Loadfromfile('c:windowsnuvens.bmp');
end;
 
procedure TForm1.TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Draw(50,50,Bmp);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Bmp.Free;
end;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Imagens
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 3317 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009