如何取得系统时间

Question

要求：
1。如何取得时间
2。取得时间后如何让他自己跟着系统时间同步
3。在每句代码后给出为什么是什么作用

Answer 1

1、now函数
2、在timer里刷新

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
mytime: TDateTime;
begin
mytime:=Now;
Caption:=DateToStr(mytime)+' '+TimeToStr(mytime);
//或直接用 Caption := DateTimeToStr(Now);

Answer 3

不用代码你用什么呀，你干脆把你的手表绑在上面。你说的实现“自己会跟着系统时间走”的功能，有2种方法：
1、就是用时间控件，TTIMER在事件里写
var
mytime: TDateTime;
begin
mytime:=Now;
Caption:=DateToStr(mytime)+' '+TimeToStr(mytime);
//或直接用 Caption := DateTimeToStr(Now);2、方法：写一个控件，其中控件种也要有上面的代码。如果不想用代码，那我帮不了你，以上实现都要用代码实现。

Answer 4

大哥这样他不会跟着系统时间走的
    需要你点击button他的时间才会变动
    我现在是要他象系统一样自己运行