| Class TForm1 (unit Rtcmain) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
RtcTimer1 : TRtcTimer;
Timer1 : TTimer;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);here in my application a hardware module is activated: EPC1.Active :=True; {init timer measurement
procedure FormCreate(Sender: TObject);
procedure Timer(Sender: TObject);this 'normal' timer is for display update
procedure Timer1Timer(Sender: TObject);reset watch clock
| Properties |
| Events |
| Variables |
Button1 : TButton;
Label1 : TLabel;
Label10 : TLabel;
Label11 : TLabel;
Label12 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
RtcTimer1 : TRtcTimer;
Timer1 : TTimer;