如何让其显示系统时间？

Question

在开发软件时，我需要让其显示系统时间（日期型即可）。
该用什么控件和源码？

Answer 1

self.StatusBar1.Panels[3].Text:=formatdatetime('yyyy年MM月dd',NOW);

Answer 2

//设置Timer1.Interval = 1000
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit1.Text := DateTimeToStr(Now);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 3

self.StatusBar1.Panels[1].Text:=datetostr(now)

Answer 4

其它空间可以不用
Now 返回当前日期及时间  
Date 返回当前日期  
Time 返回当前时间  
DateTimeToStr 按缺省格式将日期和时间值转换为字符串；特定格式转换可用 FormatDateTime函数  
DateTimeToString 按缺省格式将日期和时间值拷贝到字符串缓冲区  
DateToStr 将TDateTime值的日期部分转为字符串  
TimeToStr 将TDateTime值的时间部分转为字符串  
FormatDateTime 按特定格式将日期和时间值转换为字符串  
StrToDateTime 将带有日期和时间信息的字符串转换为TdateTime类型值，如串有误将引发一个异常  
StrToDate 将带有日期信息的字符串转换为TDateTime类型格式  
StrToTime 将带有时间信息的字符串转换为TDateTime类型格式  
DayOfWeek 根据传递的日期参数计算该日期是一星期中的第几天  
DecodeDate 根据日期值返回年、月、日值  
DecodeTime 根据时间值返回时、分、秒、毫秒值  
EncodeDate 组合年、月、日值为TDateTime类型值  
EncodeTime 组合时、分、秒、毫秒值为TDateTime类型值  就像楼上所说将类型转变一下显示出来就行了