alarm.pas

来自「编写」· PAS 代码 · 共 70 行

unit alarm;

interface

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

type
  Tf_Alarm = class(TForm)
    Ok: TButton;
    Cancel: TButton;
    GroupBox1: TGroupBox;
    Alarm_1: TDateTimePicker;
    Check_Alarm_1: TCheckBox;
    Alarm_2: TDateTimePicker;
    Check_Alarm_2: TCheckBox;
    Alarm_3: TDateTimePicker;
    Check_Alarm_3: TCheckBox;
    Alarm_4: TDateTimePicker;
    Check_Alarm_4: TCheckBox;
    Alarm_Msg_1: TEdit;
    Label1: TLabel;
    Alarm_Msg_2: TEdit;
    Label2: TLabel;
    Alarm_Msg_3: TEdit;
    Label3: TLabel;
    Alarm_Msg_4: TEdit;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    procedure CancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_Alarm: Tf_Alarm;

implementation

uses main;

{$R *.DFM}

procedure Tf_Alarm.OkClick(Sender: TObject);
begin
  ModalResult:=mrOk
end;

procedure Tf_Alarm.CancelClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

procedure Tf_Alarm.FormShow(Sender: TObject);
begin
  Check_Alarm_1.Checked:=f_main.bAlarm[1];  Alarm_1.Time:=f_main.AlarmTime[1];  Alarm_Msg_1.Text:=f_main.AlarmMsg[1];
  Check_Alarm_2.Checked:=f_main.bAlarm[2];  Alarm_2.Time:=f_main.AlarmTime[2];  Alarm_Msg_2.Text:=f_main.AlarmMsg[2];
  Check_Alarm_3.Checked:=f_main.bAlarm[3];  Alarm_3.Time:=f_main.AlarmTime[3];  Alarm_Msg_3.Text:=f_main.AlarmMsg[3];
  Check_Alarm_4.Checked:=f_main.bAlarm[4];  Alarm_4.Time:=f_main.AlarmTime[4];  Alarm_Msg_4.Text:=f_main.AlarmMsg[4];
end;

end.