procedure TformMain.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_ADD) and (Shift = [ssCtrl]) then
begin
ShowMessage('Zoom In');
end;
end;
我正在尝试使用键盘放大和缩小( ctrl + + 和 ctrl + - )
我写了这样的代码: How to detect ctrl-t keypress in Delphi
但它不起作用,我该如何解决?
答案 0 :(得分:1)
您并未明确说明it does not work
的确切方式,但对于初学者,请确保您在表单上将KeyPreview设置为true
。
如果不是这样,请更详细地扩展您的问题说明。