remindtime.pas

一个朋友写的delphi的漂亮时钟

{*******************************************************}
{*            Email: [e-mail]               *}
{*               QQ: 39262884                          *}
{*******************************************************}

unit RemindTime;

interface

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

type
  TFmRemindTime = class(TForm)
    pnl: TPanel;
    pnl1: TPanel;
    lbl1: TLabel;
    seRemindTime: TSpinEdit;
    btnOk: TButton;
    btnCancel: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    FParHandle: THandle;
  public
    constructor Create(AHandle: THandle);
    procedure CreateParams(var Params: TCreateParams); override;
    class function ShowForm(var AValue: Integer; AHandle: THandle): Boolean;
  end;

implementation

{$R *.dfm}

{ TFmRemindTime }

procedure TFmRemindTime.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TFmRemindTime.btnOkClick(Sender: TObject);
begin
  ModalResult := mrOk;
end;

constructor TFmRemindTime.Create(AHandle: THandle);
begin
  if FParHandle <> 0 then
    FParHandle := AHandle
  else
    FParHandle := Application.MainFormHandle;
  inherited Create(Application);
end;

procedure TFmRemindTime.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := FParHandle;
end;

class function TFmRemindTime.ShowForm(var AValue: Integer;
  AHandle: THandle): Boolean;
var
  FmRemindTime: TFmRemindTime;
begin
  Result := False;
  FmRemindTime := TFmRemindTime.Create(AHandle);
  try
    FmRemindTime.seRemindTime.Value := AValue;
    if FmRemindTime.ShowModal = mrOk then
    begin
      AValue := FmRemindTime.seRemindTime.Value;
      Result := True;
    end;
  finally
    FmRemindTime.Free;
  end;
end;

end.