Class TCustomWait (unit Wait)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Restart;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Start;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure StartModal;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Stop;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetInterval : Word;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetRunning : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Paint;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetInterval(Value : Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TimerEvent(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property Caption : String


property Interval : Word


property ModalResult : TModalResult


property Running : Boolean


Events

event OnTimeout : TNotifyEvent


event OnWait : TWaitEvent


event OnWaiting : TNotifyEvent


event OnWaitStart : TNotifyEvent


event OnWaitStop : TNotifyEvent


Variables

FBrush : TBrush;


FCaption : String;


FFont : TFont;


FModalResult : TModalResult;


FOnTimeout : TNotifyEvent;


FOnWait : TWaitEvent;


FOnWaiting : TNotifyEvent;


FOnWaitStart : TNotifyEvent;


FOnWaitStop : TNotifyEvent;


FPen : TPen;


FStartVal : Integer;


FTimer : TTimer;



Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Restart;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Start;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure StartModal;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Stop;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetInterval : Word;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetRunning : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Paint;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetInterval(Value : Word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TimerEvent(Sender: TObject);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property Caption : String


property Interval : Word


property ModalResult : TModalResult


property Running : Boolean


Events


event OnTimeout : TNotifyEvent


event OnWait : TWaitEvent


event OnWaiting : TNotifyEvent


event OnWaitStart : TNotifyEvent


event OnWaitStop : TNotifyEvent


Variables


FBrush : TBrush;


FCaption : String;


FFont : TFont;


FModalResult : TModalResult;


FOnTimeout : TNotifyEvent;


FOnWait : TWaitEvent;


FOnWaiting : TNotifyEvent;


FOnWaitStart : TNotifyEvent;


FOnWaitStop : TNotifyEvent;


FPen : TPen;


FStartVal : Integer;


FTimer : TTimer;