'Leinwand/Bild erlaubt kein Zeichnen'

[janjan]

hm, eigentlich nicht...

das Programm enthält ein paar selbstgeschriebene Komponenten die alle von TPaintBox abgeleitet sind. Jeder dieser Komponenten hat eine Funktion DrawBackGround die etwas in ein komponenteninternes Bitmap schreibt. Das OnPaint-Ereigniss der Komponenten hab ich überschrieben und kopiere per Canvas.Draw(0,0,BackGround) das Bitmap auf die/der/das Canvas.

Im Normalfall klappt das auch ohne Probleme, sobald ich aber ein anderes Fenster vor meinem Programmfenster wie wild hin und her schiebe taucht der oben genannte Fehler nach spätestens 15 Sekunden auf.


Die Paint-Routine hab ich folgendermaßen überschrieben:

Delphi-Quellcode:

procedure TTest.Paint;
begin
  inherited Paint;
  Canvas.Draw(0,0,background);
  ZeichneWasAnderes;
end;

Stimmt das so?