谢谢!

解决方案 »

  1.   

    不停的这样:
    DateTimePicker.datetime:=now;
      

  2.   

    timer显示系统时间在label里procedure TForm1.Timer1Timer(Sender: TObject);
    begin
       Label1.Caption:=formatdatetime('yyyy-mm-dd hh:mm:ss',now );
    end;
      

  3.   

    如果想在窗体创建时kw只显示当天日期就用
    datetimepicker1.date:=now;
    如果想显示到秒就加个时钟控件,在时钟控件的timer
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      datetimepicker1.datetime:=now;
    end;