问题！如何识别鼠标动作（如画圆等）

[Nuke]

问题！如何识别鼠标动作（如画圆等）

倾听各位高论！

[929]

识别鼠标动作？是指鼠标移动，就进行动作吗？可以处理MOUSEDOWN，MOUSEMOVE，MOUSEUP事件。但是仅凭鼠标移动就画成圆，好象有点困难。一般用鼠标作图，都是提供一些绘图工具，比如圆形，方形等。给出这些工具后，经用户选择后，再根据鼠标事件绘制对应图形。在DELPHI下自带一个例子，在DEMOS\DOC\GRAPHEX下。可看看。

[Nuke]

呵呵
没说清楚，我的意思是象某些鼠标功能软件一样，如Pop-Mouse
鼠标划个圆形，就可以激活某个功能。

[Venne]

我想你的问题是从以前一个P打头的监视鼠标的软件里来的吧。我尝试写了下面的代码来监视鼠标的位置，但是这里有很严重的两个问题，一、如果鼠标没有按下，应如何监视鼠标是否开始移动和停止移动，这样才能确定其起点位置和终止位置。二、计算的标准。这里的例子仅是一个示例。

var
Form1: TForm1;
first,middle,last:integer;

implementation

{$R *.DFM}
var
oldtime,Nowtime:integer;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift=[ssleft] then begin
if y<Middle then
Middle:=y;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if shift=[ssleft] then
first:=y;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
last:=y;
if (abs(first-last)<=15) and (abs(first-middle)>25) then
ShowMessage('Circle');
end;

[Venne]

补充：这段代码只检测了向右的上半园。

[hx]

和模式识别有关