\u95ee\u9898\u53d1\u751f\u5728 FMX.Forms.AdvanceTabFocus\uff0c\u68c0\u6d4b Tab \u987a\u5e8f\u65f6\uff0c\u6ca1\u6709\u505a\u6df1\u5165\u6d4b\u8bd5\uff0c\u9020\u6210\u65e0\u6cd5\u6b63\u786e\u7684\u5904\u7406\u3002<\/p>\n\n\n\n
\u4e0b\u9762\u7684\u4ee3\u7801\u7528\u4e8e\u89e3\u51b3\u8fd9\u4e2a\u4e00\u95ee\u9898\uff0c\u5728\u7a97\u4f53\u4e2d\u589e\u52a0\uff1a<\/p>\n\n\n\n
protected \n procedure IsDialogKey(const Key: Word; const KeyChar: WideChar; const Shift: TShiftState;\n var IsDialog: Boolean);override;<\/code><\/pre>\n\n\n\n\u5728\u5bf9\u5e94\u7684\u5b9e\u73b0\u4e2d\uff0c\u589e\u52a0\u5982\u4e0b\u4ee3\u7801\uff1a<\/p>\n\n\n\n
procedure TForm1.IsDialogKey(const Key: Word; const KeyChar: WideChar; const Shift: TShiftState;var IsDialog: Boolean);override;\n\/\/swish:2023.4.19\nvar\n APrior: IControl;\n ANext: IControl absolute APrior;\n function DoAdvance(AParent: TControl): Boolean;\n begin\n Result := False;\n if AParent.Enabled and AParent.Visible and (AParent.ControlsCount > 0) then\n begin\n if AParent.TabStop and AParent.CanFocus then\n begin\n if MoveForward then\n begin\n if APrior = Focused then\n begin\n AParent.SetFocus;\n Exit(True);\n end\n else\n APrior := AParent;\n end\n else\n begin\n if ANext = Focused then\n begin\n AParent.SetFocus;\n Exit(True);\n end\n else\n ANext := AParent;\n end;\n end;\n if MoveForward then\n begin\n for var I := 0 to AParent.ControlsCount - 1 do\n begin\n Result := DoAdvance(AParent.Controls[I]);\n if Result then\n break;\n end;\n end\n else\n begin\n for var I := AParent.ControlsCount - 1 downto 0 do\n begin\n Result := DoAdvance(AParent.Controls[I]);\n if Result then\n break;\n end;\n end\n end;\n end;\n\nbegin\n if Key=vkTab then\n begin\n for var I := 0 to ChildrenCount - 1 do\n begin\n var\n AChild := Children[I];\n if AChild is TControl then\n begin\n if DoAdvance(TControl(AChild)) then\n Exit;\n end;\n end;\n end;\n inherited;\nend;<\/code><\/pre>\n\n\n\n