delphi - 自定义组件和选项卡顺序

Question

我有一个自定义组件(继承自 TCustomPanel)，它由另外两个组件(假设有两个编辑)组成。使用组件时如何获得正确的 Tab 键顺序？

在选项卡顺序设计器中，我只能访问组件本身，该组件本身无法获得焦点，因为它是一个面板。在运行时发生的情况是，我可以使用 Tab 键访问编辑，但前提是组件下方的两个按钮获得焦点。

在这种情况下如何更改 Tab 键顺序？

Answer 1

组件中这些嵌套控件的 Tab 键顺序与组件所在窗体的 Tab 键顺序不同。当您按 Tab 键切换到嵌套控件时，窗体的 Tab 键顺序列表中组件的 Tab 键顺序将由您决定。一旦所有选项卡顺序列表组合起来，它们就会产生最终的循环:

• 表单上的控件 (TabOrder=0)
• 表单上的另一个控件 (TabOrder=1)
• 您的面板组件 (TabOrder=2)
  • 编辑 1 (TabOrder=0)
  • 编辑 2 (TabOrder=1)
• 表单上的另一个控件 (TabOrder=3)

<小时/>

能够设置面板组件设计时的 Tab 键顺序:

• 使用设计器中的 Tab 键顺序编辑器(右键单击组件的父级)并使用编辑器中的箭头更改 Tab 键顺序，或者

• 发布组件的 TabOrder 属性并在对象检查器中设置它:

  type 
    TMyPanel = class(TCustomPanel) 
    published 
      property TabOrder; 
    end; 
  

在运行时，始终可以设置组件的 Tab 键顺序，因为 TabOrder 属性在 TWinControl 中声明为公共(public)。

... which cannot have focus because it is a panel.

不，面板可以很好地获得焦点，但默认情况下不会。这是通过 TabStop 属性处理的，默认情况下该属性为 False。您不希望 TabStop 为您的组件设置 True，因为 (1) 面板没有具有焦点的指示器，(2) 不需要(我想) .

<小时/>

更改嵌套控件的 Tab 键顺序最好在组件的构造函数中或在运行时完成。

为了能够在设计时设置组件内嵌套控件的 Tab 键顺序，需要做更多的工作。 我认为你不希望这样，但由于我之前的答案(已删除)是垃圾(并且奇怪地投票了)，我已经制定了一个示例作为补偿。

首先，请注意，使用设计器中的 Tab 键顺序编辑器(右键单击面板组件)设置这些编辑的 Tab 键顺序将更改 Tab 键顺序，但不会持续。这是因为这些更改不会传输到 DFM。

为了能够流式传输/保存控件的设计时更改，您需要发布它们:

type
  TMyPanel = class(TCustomPanel)
  private
    FEdit1: TEdit;
    FEdit2: TEdit;
  public
    constructor Create(AOwner: TComponent); override;
  published 
    property Edit1: TEdit read FEdit1;
    property Edit2: TEdit read FEdit2;
  end;

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FEdit1 := TEdit.Create(Self);
  FEdit1.SetBounds(10, 10, 100, 21);
  FEdit1.Name := 'Edit1';
  FEdit1.Parent := Self;
  FEdit1.SetSubComponent(True);
  FEdit2 := TEdit.Create(Self);
  FEdit2.SetBounds(10, 41, 100, 21);
  FEdit2.Name := 'Edit2';
  FEdit2.Parent := Self;
  FEdit2.SetSubComponent(True);
end;

当然，这会发布这些控件的所有属性，现在用户可以更改他们想要的任何内容。为了防止这种情况，请考虑限制 TEdit 控件的已发布属性:

unit MyPanelEdit;

interface

uses
  DesignEditors, Unit2, DesignIntf, SysUtils, Classes, TypInfo, StdCtrls;

type
  TEditProperty = class(TComponentProperty)
  private
    function FilterFunc(const ATestEditor: IProperty): Boolean;
  public
    function GetAttributes: TPropertyAttributes; override;
    procedure GetProperties(Proc: TGetPropProc); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TEdit), TMyPanel, '', TEditProperty);
end;

{ TEditProperty }

function TEditProperty.FilterFunc(const ATestEditor: IProperty): Boolean;
begin
  Result := ATestEditor.GetName = 'TabOrder';
end;

function TEditProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paSubProperties];
end;

procedure TEditProperty.GetProperties(Proc: TGetPropProc);
var
  LComponents: IDesignerSelections;
  LDesigner: IDesigner;
begin
  LComponents := GetSelections;
  if LComponents <> nil then
  begin
    if not Supports(
        FindRootDesigner(LComponents[0]), IDesigner, LDesigner) then
      LDesigner := Designer;
    GetComponentProperties(LComponents, [tkInteger], LDesigner, Proc,
      FilterFunc);
  end;
end;

end.

这会将已发布的 TEdit 属性限制为仅显示 TabOrder。