如何同时读取 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;  

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


作者: oldfarmer
出处: http://www.cnblogs.com/rtcmw/
欢迎探讨交流 DELPHI 相关技术,QQ:64445322 QQ群:734515869
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

posted @ 2019-07-15 14:06  塞翁失身  阅读(504)  评论(2编辑  收藏  举报