Class TCustomWait (unit Wait) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Caption : String
property Interval : Word
property ModalResult : TModalResult
property Running : Boolean
event OnTimeout : TNotifyEvent
event OnWait : TWaitEvent
event OnWaiting : TNotifyEvent
event OnWaitStart : TNotifyEvent
event OnWaitStop : TNotifyEvent
FBrush : TBrush;
FCaption : String;
FFont : TFont;
FModalResult : TModalResult;
FOnTimeout : TNotifyEvent;
FOnWait : TWaitEvent;
FOnWaiting : TNotifyEvent;
FOnWaitStart : TNotifyEvent;
FOnWaitStop : TNotifyEvent;
FPen : TPen;
FStartVal : Integer;
FTimer : TTimer;
constructor Create(AOwner: TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Caption : String
property Interval : Word
property ModalResult : TModalResult
property Running : Boolean
event OnTimeout : TNotifyEvent
event OnWait : TWaitEvent
event OnWaiting : TNotifyEvent
event OnWaitStart : TNotifyEvent
event OnWaitStop : TNotifyEvent
FBrush : TBrush;
FCaption : String;
FFont : TFont;
FModalResult : TModalResult;
FOnTimeout : TNotifyEvent;
FOnWait : TWaitEvent;
FOnWaiting : TNotifyEvent;
FOnWaitStart : TNotifyEvent;
FOnWaitStop : TNotifyEvent;
FPen : TPen;
FStartVal : Integer;
FTimer : TTimer;