盒子论坛里有人要显示毫秒的控件

使用代码就可以完成的：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := FormatDateTime('hh:nn, ss:zzz',Now);

  Label2.Caption := FormatDateTime('yyyy-mm-dd hh:nn, ss:zzz',Now);

  Label3.Caption := FormatDateTime('ttampm',Now);
end;