设置热键问题！(35分)

K

konglly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #1

在一个form上
有很多的可视化控件。我现在无论焦点在这form上的哪一个控件上 我自要按一下F10
就能显示一个 showmessage('hi men')

怎样实现呢？

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #2

设置form的keypreview属性为ture
并加上如下代码：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_f10 then
showmessage('a');
end;

 

K

konglly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-09

• #3

接受答案了.