如何控制mouse右鍵? |
|
尚未結案
|
|
Tak
一般會員   發表：17 回覆：18 積分：7 註冊：2003-01-17 發送簡訊給我 |
|
|
cashxin2002
版主   發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好! 在Form中加一個Timer元件(System元件頁), 將Timer元件的Interval屬性值設為5000(即為五秒), 將Timer元件的Enable屬性值設為False, 其它相關程式碼如下:
Form1的OnMouseDown事件中
begin
if Button = mbRight then
Timer1.Enable := True;
end;
//判斷按下的是否是Mouse的右鍵, 若是右鍵, 則触發 Timer元件的OnTimer事件中
begin
ShowMessage('五秒之前您按下Mouse的右鍵');
Timer1.Enable := False;
end;
//五秒后出現Message, 再將Timer的Enable屬性值設為False
參考看看! =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
|
tonyplus
初階會員 發表：22 回覆：97 積分：28 註冊：2002-04-13 發送簡訊給我 |
引言:
您好! 在Form中加一個Timer元件(System元件頁), 將Timer元件的Interval屬性值設為5000(即為五秒), 將Timer元件的Enable屬性值設為False, 其它相關程式碼如下:
Form1的OnMouseDown事件中
|
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
|
|
Tak
一般會員 發表：17 回覆：18 積分：7 註冊：2003-01-17 發送簡訊給我 |
|
|
sos_admin
版主 發表：121 回覆：697 積分：768 註冊：2003-07-23 發送簡訊給我 |
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls; type
TForm1 = class(TForm)
Button1: TButton;
PopupMenu1: TPopupMenu;
N1111: TMenuItem;
N2221: TMenuItem;
N55551: TMenuItem;
Timer1: TTimer;
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
implementation {$R *.dfm} procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
if timer1.Enabled=false then
begin
timer1.Interval :=5000;
timer1.Enabled :=true;
end;
end; procedure TForm1.Timer1Timer(Sender: TObject);
var
pt:Tpoint;
begin
GetCursorPos(pt);
PopupMenu1.Popup(pt.X ,pt.y);
timer1.Enabled :=false;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled :=false;
showmessage('你这是单击，如果按住此按钮5秒后会弹出菜单！');
end; end.
|
|
Tak
一般會員 發表：17 回覆：18 積分：7 註冊：2003-01-17 發送簡訊給我 |
|
|
qoo1234
版主 發表：256 回覆：1167 積分：659 註冊：2003-02-24 發送簡訊給我 |
引言: 唔...... 你們有用過"自動按鍵(mouse)程式"嗎? "自動按下mouse右鍵"是指▲呢~參考看看：
unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus, ComCtrls; type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
test1: TMenuItem;
Timer1: TTimer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure test1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1;
implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval:=5000;
Timer1.Enabled:=True;
end; procedure TForm1.Timer1Timer(Sender: TObject);
var Mpt:Tpoint;
NewX,NewY: integer;
begin
GetCursorPos(Mpt);
NewX:= Mpt.x-20;
NewY:= Mpt.y-15;
PopupMenu1.Popup(NewX,NewY);
//自動按下第一個Test1選單項目
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,0,0,0,0);
Timer1.Enabled:=False;
end; procedure TForm1.test1Click(Sender: TObject);
begin
ShowMessage('test1測試OK！');
end; end.
 網海無涯，學無止境!
|
|
Tak
一般會員 發表：17 回覆：18 積分：7 註冊：2003-01-17 發送簡訊給我 |
發表時間：2003-10-07 10:13:04
IP:210.0.xxx.xxx 未訂閱
系統時間：2024-05-20 16:57:17
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |