Class

TFormMonitor

Module

uFormMonitor

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Inherits from

TObject

Declaration


TFormMonitor = class
private
  FOldActiveFormChangeEvent: TNotifyEvent;
  FOldActivateEvent: TNotifyEvent;
  FOldRestore: TNotifyEvent;
  FModifyingZOrder: boolean;
  FModifyPending: boolean;
  FActiveForm: TForm;
  FZOrderHandles: TList;
  FLastModal: boolean;
  fTopOnList: TList;
  fTopOffList: TList;
  fTimer: TTimer;
  FTimerCount: integer;
  FMenuPending: boolean;
  FWindowsHook: HHOOK;
  FRunning: boolean;
  FFormEvents: TObjectList;
  FLastActiveFormHandle: HWND;
  procedure ManageForms;
  function FormValid(form: TForm): boolean;
  function HandleValid(handle: HWND): boolean;
  procedure MoveOnTop(Handle: HWND);
  procedure MoveOffTop(Handle: HWND);
  procedure Normalize(Handle: HWND; Yes: boolean);
  procedure NormalizeReset;
  function IsNormalized(Handle: HWND): boolean;
  function GetActiveFormHandle: HWND;
  procedure StartZOrdering;
  function SystemRunning: boolean;
  function ModalDelphiForm: boolean;
  function IsTopMost(Handle: HWND): boolean;
public
  procedure Start;
  procedure Stop;
  procedure Timer(Sender: TObject);
  procedure Activate(Sender: TObject);
  procedure ActiveFormChange(Sender: TObject);
  procedure Restore(Sender: TObject);
end;

Class Hierarchy


TObject
 └TFormMonitor

Class Fields

Name Type Scope Comments
FActiveForm TForm Private -
FFormEvents Simple (unknown) Private -
FLastActiveFormHandle HWND Private -
FLastModal Boolean Private -
FMenuPending Boolean Private -
FModifyingZOrder Boolean Private -
FModifyPending Boolean Private -
FOldActivateEvent TNotifyEvent Private -
FOldActiveFormChangeEvent TNotifyEvent Private -
FOldRestore TNotifyEvent Private -
FRunning Boolean Private -
fTimer TTimer Private -
FTimerCount Integer Private -
fTopOffList TList Private -
fTopOnList TList Private -
FWindowsHook Simple (unknown) Private -
FZOrderHandles TList Private -

Methods

Name Declaration Scope Comments
Activate procedure Activate(Sender: TObject); Public TFormMonitor
ActiveFormChange procedure ActiveFormChange(Sender: TObject); Public -
FormValid function FormValid(form: TForm): boolean; Private -
GetActiveFormHandle function GetActiveFormHandle: HWND; Private -
HandleValid function HandleValid(handle: HWND): boolean; Private -
IsNormalized function IsNormalized(Handle: HWND): boolean; Private -
IsTopMost function IsTopMost(Handle: HWND): boolean; Private -
ManageForms procedure ManageForms; Private -
ModalDelphiForm function ModalDelphiForm: boolean; Private -
MoveOffTop procedure MoveOffTop(Handle: HWND); Private -
MoveOnTop procedure MoveOnTop(Handle: HWND); Private -
Normalize procedure Normalize(Handle: HWND; Yes: boolean); Private -
NormalizeReset procedure NormalizeReset; Private -
Restore procedure Restore(Sender: TObject); Public -
Start procedure Start; Public -
StartZOrdering procedure StartZOrdering; Private -
Stop procedure Stop; Public -
SystemRunning function SystemRunning: boolean; Private -
Timer procedure Timer(Sender: TObject); Public -

Referenced By (2)

Module (line) Referrer Type
uFormMonitor (78) FormMonitor Read
uFormMonitor (133) - Read