Class TThreadForm (unit Formpage) |
Inherits from
TScaleForm
constructor Create(AOwner: TComponent);
- TThreadForm -----------------------------------------------------------------
destructor Destroy;
procedure DoHide;
if not FShowThread.
procedure DoShow;
procedure Paint;
procedure SetShowGrayed(Value: Boolean);
procedure SetShowThread(Value: TShowThread);
procedure SetStartThread(Value: TStartThread);
procedure OnUM_DestroyThread(var message: TMessage);
procedure OnUM_RESETCURSOR(var message: TMessage);
if no FShowThread is created, create default:
property ShowGrayed : Boolean
property ShowThread : TShowThread
property StartThread : TStartThread
FShowGrayed : Boolean;
FShowThread : TShowThread;
FStartThread : TStartThread;
constructor Create(AOwner: TComponent);
TThreadForm -----------------------------------------------------------------
destructor Destroy;
procedure DoHide;
if not FShowThread.Destroying then
procedure DoShow;
procedure Paint;
procedure SetShowGrayed(Value: Boolean);
procedure SetShowThread(Value: TShowThread);
procedure SetStartThread(Value: TStartThread);
procedure OnUM_DestroyThread(var message: TMessage);
procedure OnUM_RESETCURSOR(var message: TMessage);
if no FShowThread is created, create default:
property ShowGrayed : Boolean
property ShowThread : TShowThread
property StartThread : TStartThread
FShowGrayed : Boolean;
FShowThread : TShowThread;
FStartThread : TStartThread;