Gentage billed i Image-objekt (baggrund)

Kan du ikke bare lave n antal TImage'r og placere dem ved siden af hinanden? Hvis det skal over i ét TImage bagefter, kan man så snuppe det fra det canvas hvorpå dine TImager har tegnet.

1)
  Placer dit billede i en TImage (Image1) på din for, og lav den Visible := False.
2)
  Under private i interface til din form skriver du det følgende :
    procedure ClientWndProc(var Message: TMessage);
  og trykker SHIFT + CTRL + C
3)
  Så implementerer du den således :
procedure TMainFrom.ClientWndProc(var Message: TMessage);
var
  cw, ch: Integer;
  Dc, bDc: hDC;
  bCountX, bCountY: Integer;
  Bitmap: TBitmap;
  bmXsize, bmYsize: Integer;
begin
  Bitmap := Image1.Picture.Bitmap;
  bmXsize := Bitmap.Width;
  bmYsize := Bitmap.Height;

  with Message do
    case Msg of
      WM_ERASEBKGND:
        begin
          Dc := TWMEraseBkGnd(Message).dc; //Handle til den Device Context vi skal tegne på
          bDc := Bitmap.Canvas.Handle; //Handle til den Device Context som vi skal kopiere fra.

          bCountX := Width div bmXsize; // bCountX = Antal hele gange vores bitmap kan være i breden.
          bCountY := Height div bmysize; // bCounty = Antal hele  gange vores bitmap kan være i højden.

          for cw := 0 to bCountX do
            for ch := 0 to bCountY do
              BitBlt(DC, cw * bmXsize, ch * bmYsize, bmXsize, bmYsize, bDC, 0, 0, SRCCOPY); //Tegn vores bitmap flere gange på formen
          Result := 1;
        end;
    else
      Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
    end;
end;


Jens B

borrisholt: Nu subklasser jeg ikke tit og jeg kan ikke få dit eksempel til at virke:

Har indsat denne da den vist manglede:

procedure TMainFrom.CreateWnd;
begin
  inherited;
  fNewClientProc := MakeObjectInstance(ClientWndProc);
  fPrevClientProc := pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
  SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(fNewClientProc));
end;

Har valgt din løsning, Borrisholt. Hvis du lige opretter svar, så skal du få point.

Svar