Zitat von
Steve:
Hi,
gib Deinem Form ne Boolsche Variable z.B.
MouseIsDown, setz diese im
OnMouseDown auf
True, im
OnMouseUp auf
False. Im
OnMouseDown gehst Du mit
TCanvas.MoveTo noch auf den "Startpunkt", im
OnMouseMove wird mit
TCanvas.LineTo ne Linie gezeichnet, falls
MouseIsDown=true ist.
Gruß
Stephan
Genau das HAB ich doch schon gemacht. Ein paar Posts weiter oben ist mein QuellCode dazu. Und da steht auch mein Problem. Und zwar immer, wenn ich anfange zu zeichnen, zeichnet Canvas mir eine senkrechte Linie nach oben bis zu meinem Cursor. Und ich weiß nicht, warum oder gar, wie ich es verhindern kann.