adjust.pas

小闹钟程序

unit Adjust;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls,IDGlobal;

type
  TfrmAdjust = class(TForm)
    GroupBox3: TGroupBox;
    ADate: TDateTimePicker;
    ATime: TDateTimePicker;
    btn_OK: TButton;
    btn_Cancel: TButton;
    Timer1: TTimer;
    btn_Apply: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure btn_OKClick(Sender: TObject);
    procedure ADateChange(Sender: TObject);
    procedure ATimeChange(Sender: TObject);
    procedure ATimeClick(Sender: TObject);
    procedure ADateClick(Sender: TObject);
    procedure btn_ApplyClick(Sender: TObject);
    procedure ADateEnter(Sender: TObject);
    procedure ADateExit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ATimeEnter(Sender: TObject);
    procedure ATimeExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdjust: TfrmAdjust;

implementation

{$R *.dfm}

procedure TfrmAdjust.Timer1Timer(Sender: TObject);
begin
    self.ADate.DateTime:=Now;
    self.ATime.DateTime:=Now;    
end;

procedure TfrmAdjust.btn_OKClick(Sender: TObject);
begin
    SetLocalTime(ATime.DateTime);
    self.Timer1.Enabled:=true;
end;

procedure TfrmAdjust.ADateChange(Sender: TObject);
begin
    ATime.Date:=ADate.Date;  
end;

procedure TfrmAdjust.ATimeChange(Sender: TObject);
begin
    ADate.Time:=ATime.Time;  
end;

procedure TfrmAdjust.ATimeClick(Sender: TObject);
begin
    self.Timer1.Enabled:=false;  
end;

procedure TfrmAdjust.ADateClick(Sender: TObject);
begin
    self.Timer1.Enabled:=false;
end;

procedure TfrmAdjust.btn_ApplyClick(Sender: TObject);
begin
    SetLocalTime(ATime.DateTime);
    self.Timer1.Enabled:=true;
end;

procedure TfrmAdjust.ADateEnter(Sender: TObject);
begin
    self.Timer1.Enabled:=false;
end;

procedure TfrmAdjust.ADateExit(Sender: TObject);
begin
    self.Timer1.Enabled:=true;
end;

procedure TfrmAdjust.FormActivate(Sender: TObject);
begin
    self.btn_OK.SetFocus;
end;

procedure TfrmAdjust.ATimeEnter(Sender: TObject);
begin
    self.Timer1.Enabled:=false;
end;

procedure TfrmAdjust.ATimeExit(Sender: TObject);
begin
    self.Timer1.Enabled:=true;
end;

end.