Z
zhsh
Unregistered / Unconfirmed
GUEST, unregistred user!
一个小问题，我在FormKeyDown要设一个热键(ctrl-s),执行一个按扭的
click事件，代码如下：
procedure TForm1.FormKeyDown(..)
begin
if (ssCtrl in shift ) and ( chr(key) = 's') then
BottonTestClick(self);
end;
click事件，代码如下：
procedure TForm1.FormKeyDown(..)
begin
if (ssCtrl in shift ) and ( chr(key) = 's') then
BottonTestClick(self);
end;