| Class TMinMax (unit MinMax) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Loaded;
procedure Paint;Always make sure that the hook is removed.
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure SetParent(Value: TWinControl);
procedure HookParent;
procedure HookWndProc(var Message: TMessage);
procedure UnhookParent;| Properties |
property MaxPosition : TMinMaxPoint
property MaxSize : TMinMaxPoint
property MaxTrackSize : TMinMaxPoint
property MinTrackSize : TMinMaxPoint
property Options : TMinMaxOptions| Events |
| Variables |
FMaxPosition : TMinMaxPoint;
FMaxSize : TMinMaxPoint;
FMaxTrackSize : TMinMaxPoint;
FMinTrackSize : TMinMaxPoint;
FOptions : TMinMaxOptions;
NewWndProc : Pointer;
OldWndProc : TFarProc;| Constructors |
constructor Create(AOwner: TComponent);Déclarations publiques
| Functions |
destructor Destroy;Initialize variables
procedure Loaded;
procedure Paint;Déclarations protégées
Always make sure that the hook is removed.
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure SetParent(Value: TWinControl);A Parent has been assigned or changed. Unhook old parent and install } { hook in new parent.
procedure HookParent;This procedure is used to get the parent's window procedure, save it, } { and replace it with our own. This allows see all of the parent's messages } { before it does.
procedure HookWndProc(var Message: TMessage);The window procedure that is installed into our parent.
procedure UnhookParent;Remove our window function and reinstall the original.
| Properties |
property MaxPosition : TMinMaxPoint
property MaxSize : TMinMaxPointDéclarations publiées
property MaxTrackSize : TMinMaxPoint
property MinTrackSize : TMinMaxPoint
property Options : TMinMaxOptions| Events |
| Variables |
FMaxPosition : TMinMaxPoint;
FMaxSize : TMinMaxPoint;Déclarations privées
FMaxTrackSize : TMinMaxPoint;
FMinTrackSize : TMinMaxPoint;
FOptions : TMinMaxOptions;
NewWndProc : Pointer;
OldWndProc : TFarProc;