Question

delphi 中 实现 ctrl + A~Z 和 Alt + A~Z 组合键的拦截

delhpi 中 PageControl 有个页面，页1，页2 ，中常有相同的快捷键。焦点再页2，的时候，按先快捷键，Alt + ...的时候，常常弹出页1的事件中。
procedure Tfrmddzl.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_F2: begin
IF PG.ActivePage=TS1 THEN BEGIN
t1.OnClick(nil);
END;
IF PG.ActivePage=TS2 THEN BEGIN
IF TSB1.Enabled THEN TSB1.OnClick(nil);
END;
end;
end;

end;

用以上虚拟键盘，只能单个键值，拦截，怎样才能可以拦截组合键。谢谢！

Answer 1

Shift: TShiftState
判断这个shift的取值就可以了

TShiftState = set of (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble);

if (ssShift in Shift)and(key = vk_F2) then 就是按下了shift+F2

Answer 2

当按下alt或ctrl键的时候 Shift值是不一样的，通过读取Shift的值和Key的值，可以判断组合键

Answer 3

Shift: TShiftState 看一下帮助

Answer 4

如果想实现Ctrl + L
procedure TForm1.Memo4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = ord('L') ) then begin
SpeedButton44Click(Self);
end;