2. 滑动屏幕,找到“时钟”选项。
3. 进入“时钟”,找到“报时”选项。
4. 点击“报时”,选择“每小时报时”。
5. 设置好报时之后,退出设置界面即可。您的三星手表会在每小时整点报时。
unit Unit1interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrlstype
TForm1 = class(TForm)
Timer1: TTimer
Label1: TLabel
Label2: TLabel
procedure Timer1Timer(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
endvar
Form1: TForm1implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject)
var s :string
begin
Label1.Caption := FormatDateTime('yyyy/mm/dd AM/PM hh:mm ', Now + 0.125)
Label2.Caption := FormatDateTime('hhmmss',now())
if(FormatDateTime('hhmmss',now())='000000') then
showmessage(FormatDateTime('yyyy/mm/dd AM/PM hh:mm ', Now + 0.125))
endend.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)