2

我有一个 TEdit(VisualCLX 组件),我想在 onKeyPress 事件中覆盖 TAB 键的行为,但是如果我尝试在 KeyPress 事件中拦截 TAB 键,它不起作用,因为当在 TEdit 上按下 tab 键。

如何拦截 TEdit Control 的 KeyPress 事件上的 TAB 键?

4

1 回答 1

0

编辑事件不适用于导航键Tab,因为它们不会触发键盘事件。唯一指向这一事实的地方。Delphi 帮助 TCustomForm.KeyPreview

测试将 3 TEdit (CLX) 放在一个表单和一个 TMemo 上。
选项卡顺序是 Edit1、Edit2、Edit3
您可以使用的唯一事件是 KeyUp 事件

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    Memo1.Lines.Add('Edit1KeyUp');
end;

procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    Memo1.Lines.Add('Edit2KeyUp');
end;

procedure TForm1.Edit3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    Memo1.Lines.Add('Edit3KeyUp');
    if Key = VK_TAB then begin
       Edit2.SetFocus;
    end;
end;
  • 将光标放在 Edit2 输入字段中
  • 按换档选项卡

    • 光标移动到字段edit1
    • 备忘录1显示

      Edit1KeyUp
      Edit1KeyUp

  • 按标签

    • 光标移动到字段edit2
    • 备忘录1显示

      Edit2KeyUp

  • 按标签

    • 光标试图移动到字段edit3
    • 使用命令Edit2.SetFocus;
      我们将光标发送回edit2
    • 备忘录1显示

      Edit3KeyUp

因此,使用 TAB 键,用户永远无法离开 edit2

在此处输入图像描述

例如:在 Edit3KeyUp 事件中,您可以将 #9 添加到 Edit2.Text。

    if Key = VK_TAB then begin
       Edit2.SetFocus;
       Edit2.Text := Edit2.Text+#9+'<- a Tab here'; 
    end;

在此处输入图像描述

于 2013-06-03T01:11:56.657 回答