Das Zeichnen selbst ist aber ganz einfach, das sind 2 Zeilen
(Beispiel mit einem Image):
Delphi-Quellcode:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TImage(Sender).Canvas.MoveTo(X, Y);
//Beim Klicken den "Stift" zur aktuellen Positioen bewegen
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
//Wenn linke Maustaste gedrückt..
TImage(Sender).Canvas.LineTo(X, Y);
//..eine Linie zur neuen Position zeichnen
end;
du müsstet nur gegebenenfalls noch Farbe/Dicke verändern.
Mfg