Delphi中TDateTimePicker控件失焦问题求助

问题1：窗体启动时TDateTimePicker自动获焦，设置ActiveControl := nil无效 #

TDateTimePicker是Windows原生控件，在FormShow阶段直接设置ActiveControl := nil时机不对，原生控件的焦点逻辑会覆盖这个设置。可以用以下两种方案解决：

方案1：延迟执行失焦操作 #

通过PostMessage把失焦逻辑放到消息队列末尾，等控件初始化完成后再执行：

procedure TfrmMain.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, WM_USER + 1, 0, 0);
end;

procedure TfrmMain.WndProc(var Message: TMessage);
begin
  inherited;
  if Message.Msg = WM_USER + 1 then
  begin
    // 先让一个不影响视觉的控件临时获焦（比如设置了TabStop=True的隐藏Label）
    Label1.SetFocus;
    Self.ActiveControl := nil;
  end;
end;

方案2：调整Tab顺序 #

把窗体的第一个Tab位置分配给一个不可见的可获焦控件（比如TEdit，设置Visible := False、TabStop := True），启动时焦点会落到这个隐藏控件上，视觉上所有控件都处于失焦状态。

问题2：点击TSpeedButton无法移除TDateTimePicker的焦点 #

TSpeedButton的特性是点击时不会主动获取焦点，因此无法自动夺走TDateTimePicker的焦点。可以通过以下方式手动处理：

方案1：指定其他控件获焦 #

在按钮点击事件里，让窗体上的某个控件（比如设置了TabStop=True的Label）获取焦点：

procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
  // 执行你的按钮业务逻辑
  Label1.SetFocus; // 间接移除DateTimePicker的焦点
end;

方案2：直接发送失焦消息 #

给TDateTimePicker发送WM_KILLFOCUS消息，强制其失焦：

procedure TfrmMain.SpeedButton1Click(Sender: TObject);
begin
  // 执行你的按钮业务逻辑
  SendMessage(DateTimePicker1.Handle, WM_KILLFOCUS, 0, 0);
end;

内容的提问来源于stack exchange，提问作者gene b.