了解按Ctrl + Plus

时间:2015-02-02 14:07:49

标签: delphi

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

但它不起作用,我该如何解决?

1 个答案:

答案 0 :(得分:1)

您并未明确说明it does not work的确切方式,但对于初学者,请确保您在表单上将KeyPreview设置为true

如果不是这样,请更详细地扩展您的问题说明。