制作一个自定义快捷键(100分)

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #1

我要给一个文本编辑器做个自己定义快键捷的东东
比如功能键选用ctrl shift 还是alt
基本键用26个字母
定义快捷字符串eg: ctrl+A ,定义键值为“delphi是个好东东”
程序运行时，按下ctrl+A，文本上显示“delphi是个好东东”
大家给我个思路吧，谢谢，就140分了，都散了

 

X

xushufa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #2

把form的keypreview设置成true..然后再ONKEYDOWN事件下写东西。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #3

注册系统热键的例子。
http://www.aidelphi.com/6to23/docu/hotkey.zip

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #4

app2001！这个例子不对阿，什么都没有！！！是个空的！

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #5

你有看过它的源码的话，就不会这么认为了？？

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #6

app2001?
看了，可是这个例子不能够自己定义啊？
我这样做行不行？
把定义的功能键，基本键，键值存到ini文件里
在keydown事件里截获key和shift，到ini文件里找键值就可以了
不知道这么做行不行

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #7

给个EMAIL我，我再发一个例子给你看看

 

X

xhlight

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #8

代码如下：
private
procedure WMHotKey(var Msg: TMessage); message WM_HOTKEY;
//定义一个过程捕获热键

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(handle,1001,MOD_CONTROL ,LongWord('A'));
end; //注册热键

procedure TForm1.WMHotKey(var Msg: TMessage);
begin
if Msg.WParam=1001 then
Memo1.Lines.Append('delphi是个好东东');
end; //当按此热键时显示文本

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,1001);
end; //最后把注册的热键取消

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #9

app2001!
我的email:zhangran@travelsky.com,zranran@263.com

 

Q

QQ989753

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #10

知道你想做什么事情。我建议不用热键的方式，而用一个特殊字符来控制，在一个
适当的时候，把这个字符后面的东东替换成自己定义的东东。如果以这个方法来做，
我认为会非常的简单，而且用户也容易接受。个人建议，欢迎交流。

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #11

发给你了，注意查收

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #12

能发到我263信箱嘛？另外一个有点问题，谢了

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #13

我也只发了263

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #14

app2001,没收到啊！怎么办？
谢谢，在发一次吧

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #15

我的没有退货呀？好吧

 

Z

zranran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #16

app2001我还是没收到！(
555555555

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #17

等一下吧，要不你就找个163.com的来，我的就是163.com的

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-24

• #18

都被退回来了，你还有别的方式没有？？？