Löschen einer Paintbox verhindern

[Matze]

BitBlt, deklariert in der Unit Windows. Ein Aufruf könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  BitBlt(PaintBox.Canvas.Handle, 0, 0, Bitmap.Width, Bitmap.Height, Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
end;

Natürlich könntest du auch Canvas.Draw nutzen, nur ist dies meines Wissens etwas langsamer, bin mir aber nicht sicher.