如題
請問如何使用滑鼠在Form上畫點

點
[code delphi]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.Pen.Width := 5;
Canvas.Pen.Color := clred;
Canvas.MoveTo(X,Y);
Canvas.lineTo(X,Y);
end;
[/code]

適當的搭配 滑鼠Move , up ,down事件 就可以用滑鼠當畫筆, 有興趣可以試看看
===================引 用 wander7617 文 章===================
如題
請問如何使用滑鼠在Form上畫點

------
額有朝天骨,眼中有靈光