TPaintbox auf Canvas zeichnen mit "Vorschau"

[draeger1980]

Hi,

ich hätte da mal eine frage:

Wie kann man auf in auf der TPaintbox im Canvas zeichnen und dabei gleichzeit das ergebnis ansehen ?

D.h. wenn ich eine Linie vom Punkt X,Y nach X,Y ziehe dann erscheint die erst im MouseUp ereignis.

Quellcode:

Quellcode vom MouseDown ereignis:

begin
PaintBox1.Canvas.Moveto(X,Y);
end;

Quellcode vom MouseUp ereignis:

begin
PaintBox1.Canvas.Lineto(X,Y);
end;

Kennt jemand die Lösung ? Vieleicht auch eine die gleich bei Rect, RoundRect und Ellipse funzt ?

[DeddyH]

Delphi Gummiband-Effekt, da sollte sich einiges finden lassen (da ist u.a. das Entwicklerhandbuch zu Delphi 5 zu finden, nur mal als Tipp ).

[draeger1980]

hey danke genau das was ich gesucht habe !