BMP als Formularhintergrund

[taaktaak]

Delphi-Quellcode:

type
TForm1 = class(TForm)
  Image1: TImage;
  private
    procedure WMEraseBkgnd (var Msg:TMessage); message WM_ERASEBKGND;
//..

procedure TForm1.WMEraseBkGnd;
var Rect    : TRect;
    MyBrush : THandle;
begin
  Rect.Left  :=0;
  Rect.Top   :=0;
  Rect.Right :=ClientWidth;
  Rect.Bottom:=ClientHeight;

  MyBrush:=CreatePatternBrush(Image1.Picture.Bitmap.Handle);
  FillRect(Canvas.Handle,Rect,MyBrush);
  DeleteObject(MyBrush);

  Msg.Result:=0
end;

Nur getippt, nicht getestet.

Anmerkung: Dein Bild muss in Image1 verfügbar sein. Zum Füllen von Hintergründen werden aber besser kleine Bitmaps verwendet, die mehrfach nebeneinander eingeblendet werden können, deren Muster also zueinander passen müssen. Ob der Vorschlag für ein großes Bild taugt, probiere bitte selbst aus.