alarm.pas

来自「电子闹钟 可以设置多个闹钟 修改闹铃时间等功能 有不同的闹铃声可以选择」· PAS 代码 · 共 51 行

unit Alarm;

interface

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

type
  TfrmAlarm = class(TForm)
    btnTurnOff: TSpeedButton;
    bvBottom: TBevel;
    bvTop: TBevel;
    lblAlarm: TLabel;
    lblTime: TLabel;
    memMessage: TMemo;
    pnlBottom: TPanel;
    pnlMain: TPanel;
    pnlTop: TPanel;
    procedure btnTurnOffClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
  public
  end;

var
  frmAlarm: TfrmAlarm;

implementation

uses Alarms, Main, Settings;

{$R *.dfm}

procedure TfrmAlarm.btnTurnOffClick(Sender: TObject);
begin
  mciSendString('Stop MM', tmp, 0, 0);
  mciSendString('Close MM', tmp, 0, 0);
  Busy := False;
  frmMain.btnAlarmClick(nil);
  Close;
end;

procedure TfrmAlarm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  btnTurnOffClick(nil);
end;

end.