unit timers - نسخه قابل چاپ

کد:
{Timer Component by TM

This is a cut down version of TTimer, Uses only a percentage

of the origanal code}

unit Timer;



interface



uses

  Windows;



  type

TNotifyEvent = procedure(Sender: TObject) of object;



TTimer = class(TObject)

  private

    TmrInt: Cardinal;

    TmrID: Cardinal;

    TmrWin: HWND;

    TmrInst: HWND;

    TmrEvnt: TNotifyEvent;

    TmrOn: Boolean;

    procedure Update;

    procedure SetEnabled(Value: Boolean);

    procedure SetInterval(Value: Cardinal);

    procedure SetOnTimer(Value: TNotifyEvent);

  public

    constructor Create;

    destructor Destroy; override;

  published

    property Interval: Cardinal read TmrInt write SetInterval default 1000;

    property OnTimer: TNotifyEvent read TmrEvnt write SetOnTimer;

    property Enabled: Boolean read TmrOn write SetEnabled default False;

  end;



implementation



constructor TTimer.Create;

begin

TmrInst:=GetModuleHandle(nil);

TmrWin:=CreateWindow(nil,nil,0,0,0,0,0,0,0,TmrInst,nil);

end;



destructor TTimer.Destroy;

begin

CloseWindow(TmrWin);

end;



procedure TTimer.SetOnTimer(Value: TNotifyEvent);

begin

TmrEvnt:=Value;

end;



procedure TTimer.SetInterval(Value: Cardinal);

begin

TmrInt:=Value;

end;



procedure TTimer.SetEnabled(Value: Boolean);

begin

TmrOn := Value;

Update;

end;



procedure TTimer.Update;

begin

KillTimer(TmrWin, TmrID);

if TmrOn then

TmrID:=SetTimer(TmrWin, 1, TmrInt,@TmrEvnt);

end;



end.