Bild vom Fenster

[Sebastian Nintemann]

@SirThornberry:

Delphi-Quellcode:

LCanvas := TCanvas.Create;
  LCanvas.Handle := Lhwnd;
  BitBlt(Ldest.Canvas.Handle, 0, 0, width, height, LCanvas.Handle, left, top, SRCCOPY);
  Image1.Picture.Assign(LDest);
  LCanvas.Free;

Wieso erstellst du denn ein Canvas (LCanvas), welches du garnicht benötigst? Das einzige mal wo LCanvas auftaucht ist im BitBlt als LCanvas.Handle, aber da könntest du doch gleich Lhwnd nehmen.

Viele Grüße, Sebastian