Form - Bitmap de fundo

Top  Previous  Next

procedure TForm1. FormCreate(Sender:Tobject); 

begin 

    grafico:= TBitmap.Create

    grafico.LoadFromFile ('C:\netsys\netsys.bmp'); 

end

procedure TForm1.FormPaint(Sender:TObject); 

begin 

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

end