home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / ALRMDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-06-25  |  815 b   |  43 lines
  1. unit alrmdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, PSalarm;
  8.  
  9. type
  10.   TDemoAlarm = class(TForm)
  11.     BitBtn1: TBitBtn;
  12.     Label1: TLabel;
  13.     Edit1: TEdit;
  14.     Label4: TLabel;
  15.     Alarm1: TAlarm;
  16.     procedure BitBtn1Click(Sender: TObject);
  17.     procedure Alarm1AlarmNotify(const ATime: TDateTime);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.   end;
  23.  
  24. var
  25.   DemoAlarm: TDemoAlarm;
  26.  
  27. implementation
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TDemoAlarm.BitBtn1Click(Sender: TObject);
  32. begin
  33.      alarm1.Alarmtime := strtotime(edit1.text);
  34.      alarm1.SetAlarm;
  35. end;
  36.  
  37. procedure TDemoAlarm.Alarm1AlarmNotify(const ATime: TDateTime);
  38. begin
  39.     showMessage('Time is up');
  40. end;
  41.  
  42. end.
  43.