求教!!!!

Question

请问如何确认一个事件的发生?
比如,是否Click了一个按钮,或者是否在某一位置MouseDown.

Answer 1

判断鼠标是否在窗体10，10位置上MouseDown
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if (x=10) and (y=10) then messagebox(0,'x=10,y=10','ok',MB_OK);
end;//为了测试方便加上个label显示坐标用
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label1.Caption:='X='+inttostr(x)+'  Y='+inttostr(y);
end;

Answer 2

大哥,说白点就是:
  如果Click了Button1,怎样怎样......
  如果在Form1上MouseDown了,.......
我应该表达得更清楚一些

Answer 3

ShowMessage(Sender.ClassName)
不太懂；

Answer 4

再程序里写标志，发声后制标志位为1下次发生的时候如果标志位为1 那么EXIT ELSE  COME ON

Answer 5

晕死
如果在Form1上MouseDown了就会触发form1的MouseDown event，然后就是在里面写自己的程序。

Answer 6

可以在事件发生过程中加入简单的测试语句，比如print不就OK了

Answer 7

你要看一下windos程序的消息处理一章，然后你就知道如何拦截了（你还可以自定义消息）。