如何将鼠标左键 按下变成回车键 再让右变成某一个键?(100分)

  • 主题发起人 主题发起人 红色闪电
  • 开始时间 开始时间

红色闪电

Unregistered / Unconfirmed
GUEST, unregistred user!
如何将鼠标左键 按下变成回车键 再让右变成某一个键?
 
在OnMouseDown里捕获鼠标左键后激活回车事件即可
 
如何将鼠标左键 按下变成回车键 再让右变成某一个键?
是系统的键按右键转成回车
 
你是要在你的界面里实现这个功能还是在操作系统里实现?
前者,按楼上的方法可以实现的呀,不过要注意将窗体的keypreview的属性设为真,
后者的话,你要先在好象是原子表里注册你要改变的两个键,然后,在你的软件里捕捉你
定义的键的消息,然后再处理你要做的工作。
 
嘿嘿,肯定是想干什么坏事情了,上次想把进程给隐藏掉,还要不能响应ctrl+alt+del
 
dx2527, 这次和上次不是一个活!
这次是帮助人! 让用户不用操作键盘就可以控制电脑了!
帮帮兄弟
 
用Perform截获消息
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, AppEvnts, StdCtrls;

type
TForm1 = class(TForm)
ApplicationEvents1: TApplicationEvents;
Memo1: TMemo;
procedure ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin

case Msg.message of

WM_LBUTTONDOWN:
begin

postmessage(screen.ActiveControl.Handle, wm_keydown, vk_return, vk_return);
// keybd_event(vk_return,0,0,0);


Handled := true;
end;

end
end;

end.

 
楼上的写的好!
 
[:(][:(]我要截获的是系统的鼠标消息不是我那个程序的消息呀!
回答错误哦
 
后退
顶部