我的代码有问题么？

Question

没有问题呀，所有这些都是你手敲进取的吧？应该是你没有给事件指定过程
你应该
1。建立一个新工程
2。在Object Inspector的evens页，分别选泽对应的事件，并双击打开代码编辑器（比如FormMouseMove对应于OnMouseMove,FormCreate对应于OnCreate）
3。在begin...end;之间输入代码，比如procedure TForm1.FormMouseMove(Sender: TObject;Shift:TShiftState;X,Y:Integer);
begin
if start=true then
   form1.Canvas.Ellipse(x,y,20,20);
end;
你只输入
if start=true then
   form1.Canvas.Ellipse(x,y,20,20);
4。在
var
  Form1: TForm1;
后输入  start: boolean;
即可

Answer 1

你是不是还漏了一段：procedure TForm1.FormMouseUp(Sender: TObject;Button:TMouseButton;
          Shift:TShiftState;X,Y:Integer);
begin
start:=False;
end;

Answer 2

谢谢你了，请留下你的Ｅ－Ｍａｉｌ好么？我的是：
[email protected]