Question

我需要拦截TEdits上的TAB键盘笔划并以编程方式对其进行抑制。在某些情况下，我不希望焦点转移到下一个控件。

我尝试在TEdit级别和TForm上使用KeyPreview = true处理KeyPress，KeyDown。我偷看了以下建议：

但它没有用。事件被触发，比方说，输入键但不是TAB键。

我正在使用Delphi 7。谢谢你的帮助。

Answer 1

如果要拦截TAB密钥行为，则应捕获CM_DIALOGKEY消息。在此示例中，如果将YouWantToInterceptTab布尔值设置为True，则会使用TAB键：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  private
    YouWantToInterceptTab: Boolean;
    procedure CMDialogKey(var AMessage: TCMDialogKey); message CM_DIALOGKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMDialogKey(var AMessage: TCMDialogKey);
begin
  if AMessage.CharCode = VK_TAB then
  begin
    ShowMessage('TAB key has been pressed in ' + ActiveControl.Name);

    if YouWantToInterceptTab then
    begin
      ShowMessage('TAB key will be eaten');
      AMessage.Result := 1;
    end
    else
      inherited;        
  end
  else
    inherited;
end;

end.

拦截TAB键并禁止它

1 个答案: