TWindowsControl

Abstract base class for TControl implementations that adapt to a Windows window/control.

Inheritance

Level	Ancestor	Description
1	TObject	Ultimate ancestor in a class hierarchy
2	TBaseObject	A base class for objects that can be used instead of `TObject`.
3	TControl	Visual user interface element that can react to user input.
4	TPanel	Base class for a `TControl` that contains other controls.
5	TControlEmbellishment	Base class for controls that embellish an other `Control`.
6	TWindowsControl

Source

Windows.Control.pas (41)

Fields

Scope	Visibility	Type	Name
Instance	private	THandle	FParentHandle
Instance	private	TBoolean	FHasShadow
Instance	private	TInteger32Rectangle	FInsets
Instance	private	TBoolean	FDebugUpdateRegion
Instance	protected	TCaretImplementation	CaretImplementation
Instance	protected	TWindowsWindow	Window
Instance	protected	HDC	DeviceContext

Methods

Scope	Visibility	Result	Name
Instance	private	THandle	GetHandle()
Instance	private		SetDebugUpdateRegion(Value: TBoolean)
Instance	protected		SetParentHandle(Value: THandle)
Instance	protected		SetHasShadow(Value: TBoolean)
Instance	protected	TInteger32Rectangle	GetInsets()
Instance	protected	LRESULT	WMPaint()
Instance	protected	LRESULT	WMDisplayChange()
Instance	protected	LRESULT	WMEraseBkgnd(DeviceContext: HDC)
Instance	protected	LRESULT	WMSetFocus(WindowLosingFocus: THandle)
Instance	protected	LRESULT	WMKillFocus(WindowReceivingFocus: THandle)
Instance	protected	LRESULT	WMSetCursor(WindowContainingCursor: THandle; HitTest: TInteger16; MouseMessage: TInteger16)
Instance	protected	LRESULT	WMActivateApp(Active: TBoolean; ThreadIdentifier: DWORD)
Instance	protected	LRESULT	WMMove(Position: TInteger32Point)
Instance	protected	LRESULT	WMMoving(Rectangle: TRect)
Instance	protected	LRESULT	WMSize(ResizeType: TInteger32; Width: TPositiveInteger16; Height: TPositiveInteger16)
Instance	protected	LRESULT	WMSizing(Side: TInteger32; Rectangle: TRect)
Instance	protected	LRESULT	WMNCHitTest(Original: TInteger32; Position: TInteger32Point)
Instance	protected	LRESULT	WMNCCalcSize(wParam: TWParam; lParam: TLParam)
Instance	protected	LRESULT	CmGetControlInstance()
Instance	protected	LRESULT	MsgTaskbarButtonCreated()
Instance	protected	TInteger16	HighOrderWord(Value: TInteger32)
Instance	protected	TInteger16	LowOrderWord(Value: TInteger32)
Instance	protected	TInteger32Point	MakePoints(Value: TPositiveInteger32)
Instance	protected	LRESULT	WindowProcedure(Message: TPositiveInteger32; wParam: TWParam; lParam: TLParam)
Instance	protected		InitializeInsets()
Instance	protected		DetermineInsets(WindowRectangle: TInteger32Rectangle; ClientRectangle: TInteger32Rectangle)
Instance	protected	TPositiveInteger32	GetControlStyle()
Instance	protected	TPositiveInteger32	GetExtendedControlStyle()
Instance	protected	TInteger32Rectangle	ExcludeBottomRight(Rectangle: TInteger32Rectangle)
Instance	protected	TInteger32Point	ConvertClientPositionToScreen(Position: TInteger32Point)
Instance	protected	TInteger32Rectangle	GetWindowRectangle()
Instance	protected	TInteger32Rectangle	GetClientRectangle()
Instance	protected		CreateWindow()
Instance	protected		CreateWindowWithParent(ControlClass: TText)
Instance	protected		DestroyWindow()
Instance	protected		RecreateWindow()
Instance	protected		HandleCreated()
Instance	protected		HandleDestroyed()
Instance	protected	TCaretImplementation	CreateCaretImplementation()
Instance	protected		ExternalUpdateBounds(Value: TInteger32Rectangle)
Instance	protected		UpdateBounds(OldBounds: TInteger32Rectangle; NewBounds: TInteger32Rectangle)
Instance	protected		CaptionChanged()
Instance	protected		DescendantFiresEvent(Descendant: TControl; Event: TEvent)
Instance	protected	TText	ControlClassName()
Instance	protected		InvalidateRectangle(Rectangle: TInteger32Rectangle)
Instance	protected	TList<TInteger32Rectangle>	GetUpdateRegion()
Instance	public		Create()
Instance	public		Destroy()
Instance	public	TMonitor	CreateNearestMonitor(Reference: TInteger32Point)
Instance	public	TBoolean	HasValidHandles()
Instance	public	TControl	ChildWithPosition(Position: TInteger32Point)
Instance	public	TInteger32Point	ConvertPositionToChildPosition(Position: TInteger32Point; Child: TControl)
Instance	public	TInteger32Point	ConvertPositionFromChildPosition(Position: TInteger32Point; Child: TControl)
Instance	public	TInteger32Rectangle	GetVisibleRectangleForControl(Control: TControl)
Instance	public	TBoolean	IsOverlapped()