主页 / coding / 问题 / 77484028
Accepted
gene b.
Asked: 2023-11-15 05:46:26 +0800 CST

Delphi：散焦 TDateTimePicker 控件

  • 772

我在控制方面遇到以下问题TDateTimePicker：

(1) 当表单出现时，它会自动聚焦。这是我对表单的第一次控制，但一切都需要在启动时分散注意力。我尝试了以下方法：

procedure TfrmMain.FormShow(Sender: TObject);
begin
  // ...
  // Defocus everything
   Self.ActiveControl := nil; // Does not work
end;

(2) 此外，还有一个TSpeedButton可以使该控件散焦的按钮，但按下它并不会从 中移除焦点TDateTimePicker。（其他控件（例如常规控件）确实TButton会删除它。）

在此输入图像描述

delphi

2 个回答

  1. 您可以将其TabStop属性设置为 false 以防止其获得初始焦点。

    请注意，这也会阻止用户使用该TAB键将焦点转移到TDateTimePicker。

    TSpeedButton按 a不会将焦点从 a 转移的原因TDateTimePicker是，它TSpeedButton不是可聚焦的控件。

    • 2
  2. Best Answer

    当表单出现时，它会自动聚焦。这是我对表单的第一次控制，但一切都需要在启动时分散注意力。

    这是一个非常奇怪的要求。我的直觉是你的设计不是最理想的。您不应该违背操作系统及其约定——您应该尝试遵守用户在平台上期望的规范。

    此外，还有一个TSpeedButton应该使该控件失去焦点，但按下它并不会从 中移除焦点TDateTimePicker。

    这是预期的，因为它TSpeedButton是图形控件，而不是窗口控件。因此，速度按钮不是窗口（如常规按钮、编辑框、单选按钮、复选框、组合框、列表框、列表视图等）。

    特别是，这意味着用户无法使用键盘（Tab）移动到您的按钮，因此速度按钮使您的 GUI 更难以访问且使用起来不太方便。

    由于这个原因，我从不使用速度按钮。

    一切都需要从启动中转移

    但如果你绝对坚持，你就能让一切从一开始就变得散焦。

    您只需要添加一个OnActivate处理程序，将表单设置ActiveControl为nil：

    procedure TForm1.FormActivate(Sender: TObject);
begin
  ActiveControl := nil
end;
    • 2

相关问题