Class TForm1 (unit timemain)

Inherits from

TForm

@/// TForm1 = class(TForm)

Constructors



Functions

procedure btn_actionClick(Sender: TObject);

$endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure TForm1.

procedure btn_setClick(Sender: TObject);

@\\\0000000301*) (*@/// procedure TForm1.

Properties

Events

Variables

btn_action : TButton;


btn_set : TButton;


edt_hostname : TEdit;


edt_offset : TEdit;


edt_time : TEdit;


lbl_host : TLabel;


lbl_offset : TLabel;


lbl_time : TLabel;


time : T_Time;


offset : integer;



Constructors


Functions


procedure btn_actionClick(Sender: TObject);

$endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure TForm1.btn_actionClick(Sender: TObject);


procedure btn_setClick(Sender: TObject);

@\\\0000000301*) (*@/// procedure TForm1.btn_setClick(Sender: TObject);


Properties


Events


Variables


btn_action : TButton;


btn_set : TButton;


edt_hostname : TEdit;


edt_offset : TEdit;


edt_time : TEdit;


lbl_host : TLabel;


lbl_offset : TLabel;


lbl_time : TLabel;


time : T_Time;


offset : integer;