在delphi中如何获取系统时间显示在edit1.txt，并且可以看到那时间还可以走动就像XP里的系统时间一样，

Question

如题
新手请教，，见笑了

Answer 1

另外在edit控件里 如何把光标从默认的左边放到右边来

Answer 2

放一个timer组件，然后在ontime事件中写
 edit1.Text := TimeToStr(Time)

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
  Edit1.Text:=TimeToStr(Time());
end;
初始化时Timer1.Enabled:=False;

Answer 4

while true do
  begin
    edit1.Text := DateTimeToStr(now);
    application.ProcessMessages;
  end;

Answer 5

放一个timer组件，然后在ontime事件中写
 edit1.Text := TimeToStr(Time)设置timer组件的enabled属性为false当点击按钮时才设置其为true