查人人中国名人网台球高中低杆的用法:delphi 时间发声
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 11:57:58
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:='时间: '+timetostr (time)+#13+'日期: '+
datetostr (date);
end;
end.
在里边填写哪个代码 能让时间走动时 发出滴答 滴答的声音 谢谢.
begin
label1.caption:='时间: '+timetostr (time)+#13+'日期: '+
datetostr (date);
end;
end.
在里边填写哪个代码 能让时间走动时 发出滴答 滴答的声音 谢谢.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
beep; // 你这里还可以用其他东西 比如调用其他的声音 明白？
Label1.Caption:= '时间: '+timetostr (time)+#13+'日期: '+datetostr(date);
end;
end.