| Class TPGFormSubclass (unit PGSubCls) |
| Constructors |
constructor Create(AOwner:TComponent);| Functions |
procedure SetMouseCapture(AValue: Boolean);
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;