Quelle  reAlert.pas   Sprache: Delphi

unit reAlert;

interface

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

type
  TAlertBox = class(TForm)
    Waittimer: TEdit;
    Label1: TLabel;
    Alarmzeit: TLabel;
    Alerttime: TEdit;
    CheckBox1: TCheckBox;
    OKButton1: TButton;
    Label2: TLabel;
    WakeTime: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure WaittimerExit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AlertBox: TAlertBox;

procedure ShowAlertBox;

implementation

{$R *.dfm}

const
  SCopyright     = 'Copyright © 1996, 1998-2002 Borland International';

procedure ShowAlertBox;
begin
  with TAlertBox.Create(Application) do
  try
    ShowModal;
  finally
    Free;
  end;
end;

procedure TAlertBox.FormCreate(Sender: TObject);
begin
  Caption := Format('Alert %s', [Application.Title]);
  Alarmzeit.Caption := SCopyRight;
end;

procedure TAlertBox.WaittimerExit(Sender: TObject);
var i:integer;
procedure sm; begin Waittimer.Color := clred; OKButton1.Enabled:=false; end;
begin
   OKButton1.Enabled:=true;Waittimer.Color := clWhite;
   for i:=1 to Length(Waittimer.Text) do
   if not (Waittimer.Text[i] in ['0' ..'9']) then sm;
end;

procedure TAlertBox.FormShow(Sender: TObject);
begin
  OKButton1.SetFocus;
end;

end.