| Class TExplorerPopup (unit ExplBtn) |
TCustomPanel
TExplorerPopup declaration
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Close;
procedure CloseIfDocked;
procedure Open(btn: TControl);
procedure DockedFormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Loaded;
procedure Paint;
procedure SetUndockable(value: Boolean);
procedure ShiftControlsUpDown(offset: Integer);
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);
procedure WMMouseMove(var msg: TWMMouseMove);| Properties |
property Caption :
property HideInactive : Boolean
property Redockable : Boolean
property Undockable : Boolean
property Undocked : Boolean
property UndockThreshold : Integer| Events |
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnUndock : TNotifyEvent| Variables |
clicked : Boolean;
FHideInactive : Boolean;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FOnUndock : TNotifyEvent;
FRedockable : Boolean;
FUndockable : Boolean;
FUndocked : Boolean;
FUndockThreshold : Integer;
mousex : Integer;
mousey : Integer;
oldParent : TWinControl;
terminated : Boolean;
titleFocused : Boolean;| Constructors |
constructor Create(AOwner: TComponent);TExplorerPopup implementation
| Functions |
procedure Close;Adjust with the screen limits
procedure CloseIfDocked;
procedure Open(btn: TControl);
procedure DockedFormClose(Sender: TObject; var Action: TCloseAction);
procedure FormClose(Sender: TObject; var Action: TCloseAction);Again set the client width to force it * (when the width is small, sometimes Delphi * increases it (caption length ?))
procedure Loaded;
procedure Paint;
procedure SetUndockable(value: Boolean);
procedure ShiftControlsUpDown(offset: Integer);Adjusts the vertical position of the components of the popup
procedure WMLButtonDown(var msg: TWMLButtonDown);
procedure WMLButtonUp(var msg: TWMLButtonUp);
procedure WMMouseMove(var msg: TWMMouseMove);Manage the undocking of the popup
| Properties |
property Caption :
property HideInactive : Boolean
property Redockable : Boolean
property Undockable : Boolean
property Undocked : Boolean
property UndockThreshold : Integer| Events |
event OnClose : TNotifyEvent
event OnOpen : TNotifyEvent
event OnUndock : TNotifyEvent| Variables |
clicked : Boolean;
FHideInactive : Boolean;
FOnClose : TNotifyEvent;
FOnOpen : TNotifyEvent;
FOnUndock : TNotifyEvent;
FRedockable : Boolean;
FUndockable : Boolean;
FUndocked : Boolean;
FUndockThreshold : Integer;
mousex : Integer;
mousey : Integer;
oldParent : TWinControl;
terminated : Boolean;
titleFocused : Boolean;