| Class TCustomWait (unit Wait) |
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;