如何在Firemonkey控件中更改默认焦点行为

Question

我创建了一个自定义的Styledcontrol后代，该后代由代表日期（日/月/小时）的3个TEdit组成，这些Edits是我的.style文件的一部分

当控件获得焦点时，第一个Edit应该获得焦点。 其他编辑永远不要通过制表获得关注。 他们在样式文件中具有tabstop = false。

constructor TPWCalendar.Create(AOwner: TComponent);
Oncanfocus:=FocusEdit;

procedure TPWCalendar.FocusEdit(Sender: TObject; var ACanFocus: Boolean);
begin
  ACanFocus:=false;
  if Findedits then
    if not FDayEdit.isfocused then
      FDayEdit.SetFocus;
end;

这可行，但是当其中一个子编辑集中在焦点上，并且我按Tab键时，将选择第一个创建的自定义控件的第一个编辑。 如何使其具有默认行为并选择下一个控件，就好像它是1个控件一样？ （因此，无论焦点位于控件的哪个位置-edit1，edit2或edit3，按Tab键都应选择下一个控件）。

PS：是否有任何不错的firemonkey组件教程？ 考虑样式等

我已经更新了问题

Answer 1

我已经解决了主要问题。

通过设置私有的oncanfocusEvent，选择第一个孩子（FDayEdit）。 然后我覆盖DialogKey，当我的一个孩子被聚焦时，主要组件将获得聚焦（请注意，这会触发oncanfocusevent）。 然后会继承调用默认行为。

thnx slomoto向我展示了正确的方向。

PS：FindEdits从styleresource分配Edits，如果失败，则返回false。

这是oncanfocusEvent：

procedure TPWCalendar.FocusEdit(Sender: TObject; var ACanFocus: Boolean);
begin
  if findedits and ( fDayEdit.IsFocused or FMonthEdit.IsFocused or FYearEdit.IsFocused)
    then aCanFocus:=true
    else begin
      ACanFocus:=false;
      if Findedits then
        FDayEdit.SetFocus;
    end;
end;

然后这是DialogKey事件

procedure TPWCalendar.DialogKey(var Key: Word; Shift: TShiftState);
begin
  if key=vktab then
    if ischildfocused then begin
      self.SetFocus;
      inherited;
    end;
end;