Anfängerhilfe Labyrinth

[skaot]

Zitat von Corpsman:

Delphi-Quellcode:

var b:Tbitmap;

Procedure Tform1.OnKeyIrgendwas(..);
begin
b.canvas.rectangle(-1,-1,clientwidth+1,clientheight+1);
with b.canvas do begin

(*
Der Ganze Alte Code
*)


// Am Schluss
form1.canvas.draw(0,0,b);
end;

Dann flackert nichts mehr.

Mhh das sagt der mir was vonwegen Zugriffsverletzung.