如何判断鼠标在指定窗体里按下鼠标左键?在线等!!(100分)

夫罗多 · 2006-09-25

指定窗体里的按钮没有HANDLE,只知道它所在的坐标范围,如何得到在指定位置按下鼠标的信息呢?本人新手,请贴代码,谢谢! 就是这样的代码(比如5没有HANDLE 只能通过区域来判断)监视鼠标在计算器上"5"的位置按下左键的程序代码  只要在5的位置按下左键就ShowMessage()

8525310 · 2006-09-25

用鼠标单击事件试试，然后，判断范围。代码。希望还是你自己解决，我也很懒的。呵呵

夫罗多 · 2006-09-27

xiammy · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var  rRect: TRect; begin  rRect :=  Rect(10, 10, 100, 100);  if (X > rRect.Left) and (X < rRect.Right)    and (Y > rRect.Top) and ( Y < rRect.Bottom) then  begin    ShowMessage('Ok');  end; end; 本来想对代码解释一下，看了一下，真看不出为什么腰写出这些代码！ 唉，DFW的未来在哪里？

夫罗多 · 2006-09-27

夫罗多 · 2006-09-27

魔鬼大师 · 2006-09-26

rRect := Form.Rect;  if (X > rRect.Left) and (X < rRect.Right)    and (Y > rRect.Top) and ( Y < rRect.Bottom) then  begin    ShowMessage('Ok');  end;

魔鬼大师 · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button=left  begin    ShowMessage('left btn press');  end; end;

jimzhao · 2006-09-26

//改一下楼上的：） procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button = mbLeft then    ShowMessage('mouse left btn press'); end;

魔鬼大师 · 2006-09-26

哈哈，你个臭小子

dongy_143 · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var  rRect: TRect; begin  rRect :=  Rect(10, 10, 100, 100); //里面的四个参数,前两个是窗体(注意不是屏幕)的左上角的x,y后两个是右下角的x,y;你可以自己定区域的  if (X > rRect.Left) and (X < rRect.Right)    and (Y > rRect.Top) and ( Y < rRect.Bottom) then  begin    ShowMessage('Ok');  end; end;

魔鬼大师 · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button = mbLeft then    ShowMessage('mouse left button pressed'); end;

网中戏 · 2006-09-26

zj_mpy · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button=left  begin    ShowMessage('left btn press');  end; end;

夫罗多 · 2006-09-27

oupj · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button = mbLeft then    ShowMessage('左键');  if Button = mbRight then    ShowMessage('右键'); end;

魔鬼大师 · 2006-09-26

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if Button = mbLeft then    ShowMessage('Left');  if Button = mbRight then    ShowMessage('Right'); end;

夫罗多 · 2006-09-27

魔鬼大师 · 2006-09-26

已经回答你了啊

夫罗多 · 2006-09-27

如何判断鼠标在指定窗体里按下鼠标左键?在线等!!(100分)

夫罗多

Unregistered / Unconfirmed

8525310

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

xiammy

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

jimzhao

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

dongy_143

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

zj_mpy

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

oupj

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

魔鬼大师

Unregistered / Unconfirmed

夫罗多

Unregistered / Unconfirmed

Similar threads