?? alarm.pas
字號:
{
模塊名稱:定時提醒設置
使用方法:1、Create
2、ShowModal
返回值: 1、mrOk:成功改變設置
2、mrCancel:取消改變設置
}
unit Alarm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Buttons, ExtCtrls;
type
TFormAlarm = class(TForm)
GroupBox1: TGroupBox;
BtnOk: TButton;
BtnCancel: TButton;
CheckBoxAlarm1: TCheckBox;
CheckBoxAlarm2: TCheckBox;
CheckBoxAlarm3: TCheckBox;
CheckBoxAlarm4: TCheckBox;
TimeAlarm1: TDateTimePicker;
TimeAlarm2: TDateTimePicker;
TimeAlarm3: TDateTimePicker;
TimeAlarm4: TDateTimePicker;
EditAlarm1: TEdit;
EditAlarm2: TEdit;
EditAlarm3: TEdit;
EditAlarm4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
procedure FormShow(Sender: TObject);
procedure BtnOkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormAlarm: TFormAlarm;
implementation
uses Global;
{$R *.DFM}
procedure TFormAlarm.FormShow(Sender: TObject);
begin
CheckBoxAlarm1.Checked := g_boolAlarm[1]; TimeAlarm1.Time := g_AlarmTime[1]; EditAlarm1.Text := g_strAlarmMsg[1];
CheckBoxAlarm2.Checked := g_boolAlarm[2]; TimeAlarm2.Time := g_AlarmTime[2]; EditAlarm2.Text := g_strAlarmMsg[2];
CheckBoxAlarm3.Checked := g_boolAlarm[3]; TimeAlarm3.Time := g_AlarmTime[3]; EditAlarm3.Text := g_strAlarmMsg[3];
CheckBoxAlarm4.Checked := g_boolAlarm[4]; TimeAlarm4.Time := g_AlarmTime[4]; EditAlarm4.Text := g_strAlarmMsg[4];
end;
procedure TFormAlarm.BtnOkClick(Sender: TObject);
begin
g_boolAlarm[1] := CheckBoxAlarm1.Checked; g_AlarmTime[1] := TimeAlarm1.Time; g_strAlarmMsg[1] := EditAlarm1.Text;
g_boolAlarm[2] := CheckBoxAlarm2.Checked; g_AlarmTime[2] := TimeAlarm2.Time; g_strAlarmMsg[2] := EditAlarm2.Text;
g_boolAlarm[3] := CheckBoxAlarm3.Checked; g_AlarmTime[3] := TimeAlarm3.Time; g_strAlarmMsg[3] := EditAlarm3.Text;
g_boolAlarm[4] := CheckBoxAlarm4.Checked; g_AlarmTime[4] := TimeAlarm4.Time; g_strAlarmMsg[4] := EditAlarm4.Text;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -