procedure Tform2.wmhotkeyhandle(var msg:Tmessage);
begin
if ((msg.LParamHi=$90) and (msg.LParamLo=mod_control or mod_alt) )//少一对括号
then
begin
msg.Result:=1;
begin
if ((msg.LParamHi=$90) and (msg.LParamLo=mod_control or mod_alt) )//少一对括号
then
begin
msg.Result:=1;
WMHotKey(var Message: TWMHOTKEY);