Question

delphi中如何设置DateTimePicker的时间与电脑时间同步

Answer 1

datetimepicker.datetime:=Now;
这个应该写在onclick事件中
没明白你说的不同步是怎么回事？
如果你只是要得到当前时间，那最好用ttimer来同步
如果你在POPUP后要得到同步时间。没明白这有什么意义
如果你只是要显示，那不如直接用个label..

Answer 2

把以下代码放在change事件中可以实现：

var
  Buffer: PChar;
  Size: Byte;
begin
  Size := TDateTimePicker(Sender).GetTextLen;
  inc(Size);
  GetMem(Buffer, Size);
  TDateTimePicker(Sender).GetTextBuf(Buffer,Size);
  TDateTimePicker(Sender).DateTime := StrToDateTime(StrPas(Buffer));
  FreeMem(Buffer, Size);

Answer 3

最简单的办法，在程序中放一个timer在ONTIMER事件中 写 datetimepacker.datetime：=now即可

Answer 4

如果只是显示日期,假如我是软件的用户,我宁愿在一个EDIT编辑框中直接输入日期,DateTimePicker用起来太麻烦了,要使它显示自己需要的日期,点击鼠标会到手软,用它直接输入日期也不好用.

Answer 5

DateTimePicker.DateTime := now;

追问

我就是这样写的，但是运行的时候时间不是同步走的

追答

用Timer控件，Interval设置为1000,然后在Timer的OnTimer事件中加入
DateTimePicker.DateTime := now;