如何同时读取 TDateTimePicker 的 Date 和 Time ？

由于 TDateTimePicker 只能用于日期或时间，不能同时使用。如果将Kind属性设置为dtkDate，则可以指定自定义DATE格式，但忽略任何TIME格式，并且Time未定义使用该属性。如果将Kind属性设置为dtkTime，则可以指定自定义TIME格式，但忽略任何DATE格式，并且Date未定义使用该属性。虽然通过设置 Format = 'yyyy/MM/dd HH:mm:ss' 可以显示日期和时间，但读取到 DateTime 的值是初始化前的，无法正确读取出日期和时间。
　很多时候，需要同时显示日期和时间，又不想使用两个控件组合显示，如何实现呢？

方法一：通过修改 TDateTimePicker 的源码实现，打开 Vcl.ComCtrls.pas 大约 28144 行：

procedure TDateTimePicker.CNNotify(var Message: TWMNotifyDT);

try

  DT := SystemTimeToDateTime(st);

  if Kind = dtkDate then

    SetDate(DT)

  else

    SetTime(DT);

 // 增加一行

　　SetDateTime(DT);

finally

  FChanging := False;

end;

然后重新编译这个单元，生成dcu文件，替换原有的，或者是将这个修改的单元添加到自己的工程中。

方法二：基于TDateTimePicker派生新的控件。

unit uZDateTimePicker;

interface

uses

 Vcl.ComCtrls, SysUtils;

type

  TZDateTimePicker = class(TDateTimePicker)

  private

    procedure SetDateAndTime;

  protected

    procedure Change; override;

  end;

implementation

{ TZDateTimePicker }

procedure TZDateTimePicker.Change;

begin

  SetDateAndTime

end;

procedure TZDateTimePicker.SetDateAndTime;

begin

  DateTime := StrToDateTime(Caption);

  inherited;

end;

end.

方法三：通过读取TDateTimePicker私有属性实现。

  // this class is just to access protected Caption property

  THackDateTimePicker = class(TDateTimePicker);

这样使用

procedure TForm1.DateTimePicker1Change(Sender: TObject);

begin

  TDateTimePicker(Sender).DateTime := StrToDateTime(THackDateTimePicker(Sender).Caption);

end;

上面三种方法各有优缺点，我个人更喜欢第三种。

巴特西

如何同时读取 TDateTimePicker 的 Date 和 Time ？

最新文章

热门文章