DateTimePicker 同时显示和修改时间和日期

最新推荐文章于 2024-09-24 17:22:25 发布

bants

最新推荐文章于 2024-09-24 17:22:25 发布

阅读量3.5k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/bants/article/details/84351012

版权

delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

网上很多文章说到这个问题，但是按他们说的，都只可以修改时间或者日期。

UserInput事件也不能解决，好像触发条件有问题，并不是修改了必定触发。

改源码太复杂，我是通过OnChange事件来处理，代码如下：

procedure TmainForm.dtpStartTimeChange(Sender: TObject);
var
  len:Integer;
  buf:PChar;
  s:string;
  t:TDateTime;
begin
  len:=(Sender as TDateTimePicker).GetTextLen + 1;
  SetLength(s,len);
  buf:=PChar(s);
  (Sender as TDateTimePicker).GetTextBuf(buf,len);
  if TryStrToDateTime(s,t) then
  begin
    if t<>(Sender as TDateTimePicker).DateTime then
      (sender as TDateTimePicker).DateTime:=t;
  end;
end;