如何在一个edit里面显示系统当前时间呀？一经解决马上给分！

Question

如题

Answer 1

放一个Timer控件，在OnTimer事件中
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := DateTimeToStr(Now);
end;

Answer 2

不用这么麻烦  定义部分：
       time:timer;    edit.text:=timetostr(time);就可以了

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=timetostr(now);
end;

Answer 4

procedure tform1.edit1click(sender:tobject)
var 
s:string;
begin
S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM', Now + 0.125);
end;
end.