Class TPGFormSubclass (unit PGSubCls)

Inherits from

TPGSubclass

Constructors


constructor Create(AOwner:TComponent);

TPGFormSubclass


Functions

procedure SetMouseCapture(AValue: Boolean);

Used to capture all mouse input, and direct the input to the target form.

function StyleBits(const Operation: TPGStyleBitsOperation; const StyleBits: LongInt): Boolean;


Properties

property MouseCapture : Boolean


property Active : Boolean


Events

Variables

FMouseCapture : Boolean;


Form : TForm;



Constructors


constructor Create(AOwner:TComponent);

TPGFormSubclass


Functions


procedure SetMouseCapture(AValue: Boolean);

Used to capture all mouse input, and direct the input to the target form.


function StyleBits(const Operation: TPGStyleBitsOperation; const StyleBits: LongInt): Boolean;


Properties


property MouseCapture : Boolean


property Active : Boolean


Events


Variables


FMouseCapture : Boolean;


Form : TForm;