如何在TDateTimePicker中隐藏“今天”按钮？

TDateTimePicker是一个常用的日期时间选择器控件，用于在应用程序中选择日期和时间。默认情况下，TDateTimePicker控件会显示一个"今天"按钮，用于快速选择当前日期。

要隐藏TDateTimePicker中的"今天"按钮，可以通过以下步骤实现：

1. 获取TDateTimePicker控件的Handle（句柄）。
2. 使用Windows API函数SendMessage，向控件发送DTM_SETMCSTYLE消息，设置控件的样式。
3. 在消息的wParam参数中，设置样式为DTS_SHOWNONE，表示隐藏"今天"按钮。

以下是一个示例代码，演示如何在Delphi中隐藏TDateTimePicker中的"今天"按钮：

const
  DTM_SETMCSTYLE = $1006;
  DTS_SHOWNONE = $0002;

procedure HideTodayButton(DateTimePicker: TDateTimePicker);
begin
  // 获取控件的句柄
  var Handle := DateTimePicker.Handle;
  
  // 设置控件的样式，隐藏"今天"按钮
  SendMessage(Handle, DTM_SETMCSTYLE, 0, DTS_SHOWNONE);
end;

使用示例：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 隐藏TDateTimePicker中的"今天"按钮
  HideTodayButton(DateTimePicker1);
end;

上述代码中的DateTimePicker1是一个TDateTimePicker控件的实例，通过调用HideTodayButton函数，可以在运行时隐藏该控件中的"今天"按钮。

这是一个简单的解决方案，适用于Delphi中的TDateTimePicker控件。对于其他编程语言和开发环境，可以根据类似的原理进行相应的实现。