Hintergrung einer TForm ein Bild zeichen

[Keldorn]

Zitat:

Delphi 5 Enterprise

Zitat von smart:

Leider bin ich noch Anfänger.

das widerspricht sich ein wenig ...

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
    bmp:Tbitmap;  //<<<<---- 
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  //bitmap erzeugen und Test-bild laden
  bmp:=TBitmap.Create;
  bmp.LoadFromFile(ExtractFilePath(Application.ExeName)+'\test.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //bitmap freigeben
  bmp.free;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  //zeichnen
  canvas.Draw(0,0,bmp);
end;