Colocar um BMP como figura de fundo
Devemos utilizar o seguinte código:
unit Unit1;
interface
uses
SysUtil, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls, Forms, Dialogs
type
TForm1 = class(Tform)
procedure FormCreate(Sender:Tobject);
procedure FormPaint(Sender:Tobject);
private
grafico: TBitmap;
public
{Public declarations}
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: Tobject);
begin
grafico := TBitmap.Create;
grafico.LoadFromFile('C:\foto.bmp');
end;
procedure TForm1.FormPaint(Sender:TObject);
begin
Form1.Canvas.Draw(0, 0, grafico);
end;
end.
