سلام
ساده ترین کدی که می تونید قرار بدید شاید این باشه :
procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
with (Sender as TImage) do begin
if Shift = [ssLeft] then
Canvas.LineTo(X, Y);
Canvas.MoveTo(X, Y);
end;
end;
و اگه یکم هم بخواین بهش آب و تاب بدید اینم میشه :
procedure TForm1.img1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TImage).Canvas.MoveTo(X, Y);
end;
procedure TForm1.img1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
(Sender as TImage).Canvas.LineTo(X, Y);
end;
موفق باشید