Klasse TControl

BeschreibungHierarchieFelderMethodenEigenschaften

Unit

Deklaration

type TControl = class(TLCLComponent)

Beschreibung

no description available, TLCLComponent description follows

Hierarchie

Übersicht

Felder

Public FCompStyle: Byte;

Methoden

Public procedure DragDrop(Source: TObject; X,Y: Integer); Dynamic;
Public procedure Dock(NewDockSite: TWinControl; ARect: TRect); dynamic;
Public function ManualDock(NewDockSite: TWinControl; DropControl: TControl = nil; ControlSide: TAlign = alNone; KeepDockSiteSize: Boolean = true): Boolean;
Public function ManualFloat(TheScreenRect: TRect; KeepDockSiteSize: Boolean = true): Boolean;
Public function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl; DropControl: TControl; ControlSide: TAlign): Boolean;
Public function Dragging: Boolean;
Public procedure AdjustSize; virtual;
Public function AutoSizeDelayed: boolean; virtual;
Public function NeedParentForAutoSize: Boolean; virtual;
Public procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer; Sibling: TControl);
Public procedure AnchorParallel(Side: TAnchorKind; Space: integer; Sibling: TControl);
Public procedure AnchorHorizontalCenterTo(Sibling: TControl);
Public procedure AnchorVerticalCenterTo(Sibling: TControl);
Public procedure AnchorToCompanion(Side: TAnchorKind; Space: integer; Sibling: TControl; FreeCompositeSide: boolean = true);
Public procedure AnchorSame(Side: TAnchorKind; Sibling: TControl);
Public procedure AnchorAsAlign(TheAlign: TAlign; Space: Integer);
Public procedure AnchorClient(Space: Integer);
Public function AnchoredControlCount: integer;
Public procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); virtual;
Public procedure SetInitialBounds(aLeft, aTop, aWidth, aHeight: integer); virtual;
Public procedure SetBoundsKeepBase(aLeft, aTop, aWidth, aHeight: integer; Lock: boolean = true); virtual;
Public procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; Raw: boolean = false; WithThemeSpace: boolean = true); virtual;
Public procedure CNPreferredSizeChanged;
Public procedure InvalidatePreferredSize; virtual;
Public function GetAnchorsDependingOnParent(WithNormalAnchors: Boolean): TAnchors;
Public procedure DisableAutoSizing;
Public procedure EnableAutoSizing;
Public procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize, UseLoadedValues: boolean); virtual;
Public procedure LockBaseBounds;
Public procedure UnlockBaseBounds;
Public procedure WriteLayoutDebugReport(const Prefix: string); virtual;
Public constructor Create(TheOwner: TComponent); override;
Public destructor Destroy; override;
Public procedure EditingDone; virtual;
Public procedure ExecuteDefaultAction; virtual;
Public procedure ExecuteCancelAction; virtual;
Public procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
Public procedure BringToFront;
Public function ColorIsStored: boolean; virtual;
Public function HasParent: Boolean; override;
Public function IsParentOf(AControl: TControl): boolean; virtual;
Public function GetTopParent: TControl;
Public function IsVisible: Boolean; virtual;
Public function IsControlVisible: Boolean; virtual;
Public function FormIsUpdating: boolean; virtual;
Public procedure Hide;
Public procedure Refresh;
Public procedure Repaint; virtual;
Public procedure Invalidate; virtual;
Public function CheckChildClassAllowed(ChildClass: TClass; ExceptionOnInvalid: boolean): boolean;
Public procedure CheckNewParent(AParent: TWinControl); virtual;
Public procedure SendToBack;
Public procedure SetTempCursor(Value: TCursor); virtual;
Public procedure UpdateRolesForForm; virtual;
Public procedure ActiveDefaultControlChanged(NewControl: TControl); virtual;
Public function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;
Public function GetTextLen: Integer; virtual;
Public procedure SetTextBuf(Buffer: PChar); virtual;
Public function Perform(Msg:Cardinal; WParam: WParam; LParam: LParam): LRESULT;
Public function ScreenToClient(const APoint: TPoint): TPoint;
Public function ClientToScreen(const APoint: TPoint): TPoint;
Public function ScreenToControl(const APoint: TPoint): TPoint;
Public function ControlToScreen(const APoint: TPoint): TPoint;
Public function GetChildsRect(Scrolled: boolean): TRect; virtual;
Public procedure Show;
Public procedure Update; virtual;
Public function HandleObjectShouldBeVisible: boolean; virtual;
Public function ParentDestroyingHandle: boolean;
Public function ParentHandlesAllocated: boolean; virtual;
Public procedure InitiateAction; virtual;
Public procedure ShowHelp; virtual;
Public function HasHelp: Boolean;
Public procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
Public procedure AddHandlerOnResize(const OnResizeEvent: TNotifyEvent; AsLast: boolean = false);
Public procedure RemoveHandlerOnResize(const OnResizeEvent: TNotifyEvent);
Public procedure AddHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent; AsLast: boolean = false);
Public procedure RemoveHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent);
Public procedure AddHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent; AsLast: boolean = false);
Public procedure RemoveHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent);
Public procedure AddHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent; AsLast: boolean = false);
Public procedure RemoveHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent);

Eigenschaften

Public property AnchoredControls[Index: integer]: TControl read GetAnchoredControls;
Public property BaseBounds: TRect read FBaseBounds;
Public property ReadBounds: TRect read FReadBounds;
Public property Action: TBasicAction read GetAction write SetAction;
Public property Align: TAlign read FAlign write SetAlign;
Public property Anchors: TAnchors read FAnchors write SetAnchors stored IsAnchorsStored;
Public property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
Public property AutoSize: Boolean read FAutoSize write SetAutoSize default False;
Public property BorderSpacing: TControlBorderSpacing read FBorderSpacing write SetBorderSpacing;
Public property BoundsRect: TRect read GetBoundsRect write SetBoundsRect;
Public property BoundsRectForNewParent: TRect read FBoundsRectForNewParent write SetBoundsRectForNewParent;
Public property Caption: TCaption read GetText write SetText stored IsCaptionStored;
Public property CaptureMouseButtons: TCaptureMouseButtons read FCaptureMouseButtons write FCaptureMouseButtons stored CaptureMouseButtonsIsStored default [mbLeft];
Public property ClientHeight: Integer read GetClientHeight write SetClientHeight stored False;
Public property ClientOrigin: TPoint read GetClientOrigin;
Public property ClientRect: TRect read GetClientRect;
Public property ClientWidth: Integer read GetClientWidth write SetClientWidth stored False;
Public property Color: TColor read FColor write SetColor stored ColorIsStored default clWindow;
Public property Constraints: TSizeConstraints read FConstraints write SetConstraints;
Public property ControlOrigin: TPoint read GetControlOrigin;
Public property ControlState: TControlState read FControlState write FControlState;
Public property ControlStyle: TControlStyle read FControlStyle write FControlStyle;
Public property Enabled: Boolean read GetEnabled write SetEnabled stored IsEnabledStored default True;
Public property Font: TFont read FFont write SetFont stored IsFontStored;
Public property IsControl: Boolean read FIsControl write FIsControl;
Public property MouseEntered: Boolean read FMouseEntered;
Public property OnChangeBounds: TNotifyEvent read FOnChangeBounds write FOnChangeBounds;
Public property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;
Public property OnResize: TNotifyEvent read FOnResize write FOnResize;
Public property OnShowHint: TControlShowHintEvent read FOnShowHint write FOnShowHint;
Public property Parent: TWinControl read FParent write SetParent;
Public property PopupMenu: TPopupmenu read GetPopupmenu write SetPopupMenu;
Public property ShowHint: Boolean read FShowHint write SetShowHint stored IsShowHintStored default False;
Public property Visible: Boolean read FVisible write SetVisible stored IsVisibleStored default True;
Public property WindowProc: TWndMethod read FWindowProc write FWindowProc;
Public property DockOrientation: TDockOrientation read FDockOrientation write FDockOrientation;
Public property Floating: Boolean read GetFloating;
Public property FloatingDockSiteClass: TWinControlClass read GetFloatingDockSiteClass write FFloatingDockSiteClass;
Public property HostDockSite: TWinControl read FHostDockSite write SetHostDockSite;
Public property LRDockWidth: Integer read GetLRDockWidth write FLRDockWidth;
Public property TBDockHeight: Integer read GetTBDockHeight write FTBDockHeight;
Public property UndockHeight: Integer read GetUndockHeight write FUndockHeight;
Public property UndockWidth: Integer read GetUndockWidth write FUndockWidth;
Published property AnchorSideLeft: TAnchorSide index 0 read GetAnchorSideIndex write SetAnchorSideIndex;
Published property AnchorSideTop: TAnchorSide index 1 read GetAnchorSideIndex write SetAnchorSideIndex;
Published property AnchorSideRight: TAnchorSide index 2 read GetAnchorSideIndex write SetAnchorSideIndex;
Published property AnchorSideBottom: TAnchorSide index 3 read GetAnchorSideIndex write SetAnchorSideIndex;
Published property Cursor: TCursor read FCursor write SetCursor default crDefault;
Published property Left: Integer read FLeft write SetLeft;
Published property Height: Integer read FHeight write SetHeight;
Published property Hint: TTranslateString read FHint write SetHint;
Published property Top: Integer read FTop write SetTop;
Published property Width: Integer read FWidth write SetWidth;
Published property HelpType: THelpType read FHelpType write FHelpType default htContext;
Published property HelpKeyword: String read FHelpKeyword write SetHelpKeyword stored IsHelpKeyWordStored;
Published property HelpContext: THelpContext read FHelpContext write SetHelpContext stored IsHelpContextStored;

Beschreibung

Felder

Public FCompStyle: Byte;
 

Methoden

Public procedure DragDrop(Source: TObject; X,Y: Integer); Dynamic;
 
Public procedure Dock(NewDockSite: TWinControl; ARect: TRect); dynamic;
 
Public function ManualDock(NewDockSite: TWinControl; DropControl: TControl = nil; ControlSide: TAlign = alNone; KeepDockSiteSize: Boolean = true): Boolean;
 
Public function ManualFloat(TheScreenRect: TRect; KeepDockSiteSize: Boolean = true): Boolean;
 
Public function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl; DropControl: TControl; ControlSide: TAlign): Boolean;
 
Public function Dragging: Boolean;
 
Public procedure AdjustSize; virtual;
 
Public function AutoSizeDelayed: boolean; virtual;
 
Public function NeedParentForAutoSize: Boolean; virtual;
 
Public procedure AnchorToNeighbour(Side: TAnchorKind; Space: integer; Sibling: TControl);
 
Public procedure AnchorParallel(Side: TAnchorKind; Space: integer; Sibling: TControl);
 
Public procedure AnchorHorizontalCenterTo(Sibling: TControl);
 
Public procedure AnchorVerticalCenterTo(Sibling: TControl);
 
Public procedure AnchorToCompanion(Side: TAnchorKind; Space: integer; Sibling: TControl; FreeCompositeSide: boolean = true);
 
Public procedure AnchorSame(Side: TAnchorKind; Sibling: TControl);
 
Public procedure AnchorAsAlign(TheAlign: TAlign; Space: Integer);
 
Public procedure AnchorClient(Space: Integer);
 
Public function AnchoredControlCount: integer;
 
Public procedure SetBounds(aLeft, aTop, aWidth, aHeight: integer); virtual;
 
Public procedure SetInitialBounds(aLeft, aTop, aWidth, aHeight: integer); virtual;
 
Public procedure SetBoundsKeepBase(aLeft, aTop, aWidth, aHeight: integer; Lock: boolean = true); virtual;
 
Public procedure GetPreferredSize(var PreferredWidth, PreferredHeight: integer; Raw: boolean = false; WithThemeSpace: boolean = true); virtual;
 
Public procedure CNPreferredSizeChanged;
 
Public procedure InvalidatePreferredSize; virtual;
 
Public function GetAnchorsDependingOnParent(WithNormalAnchors: Boolean): TAnchors;
 
Public procedure DisableAutoSizing;
 
Public procedure EnableAutoSizing;
 
Public procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize, UseLoadedValues: boolean); virtual;
 
Public procedure LockBaseBounds;
 
Public procedure UnlockBaseBounds;
 
Public procedure WriteLayoutDebugReport(const Prefix: string); virtual;
 
Public constructor Create(TheOwner: TComponent); override;
 
Public destructor Destroy; override;
 
Public procedure EditingDone; virtual;
 
Public procedure ExecuteDefaultAction; virtual;
 
Public procedure ExecuteCancelAction; virtual;
 
Public procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
 
Public procedure BringToFront;
 
Public function ColorIsStored: boolean; virtual;
 
Public function HasParent: Boolean; override;
 
Public function IsParentOf(AControl: TControl): boolean; virtual;
 
Public function GetTopParent: TControl;
 
Public function IsVisible: Boolean; virtual;
 
Public function IsControlVisible: Boolean; virtual;
 
Public function FormIsUpdating: boolean; virtual;
 
Public procedure Hide;
 
Public procedure Refresh;
 
Public procedure Repaint; virtual;
 
Public procedure Invalidate; virtual;
 
Public function CheckChildClassAllowed(ChildClass: TClass; ExceptionOnInvalid: boolean): boolean;
 
Public procedure CheckNewParent(AParent: TWinControl); virtual;
 
Public procedure SendToBack;
 
Public procedure SetTempCursor(Value: TCursor); virtual;
 
Public procedure UpdateRolesForForm; virtual;
 
Public procedure ActiveDefaultControlChanged(NewControl: TControl); virtual;
 
Public function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; virtual;
 
Public function GetTextLen: Integer; virtual;
 
Public procedure SetTextBuf(Buffer: PChar); virtual;
 
Public function Perform(Msg:Cardinal; WParam: WParam; LParam: LParam): LRESULT;
 
Public function ScreenToClient(const APoint: TPoint): TPoint;
 
Public function ClientToScreen(const APoint: TPoint): TPoint;
 
Public function ScreenToControl(const APoint: TPoint): TPoint;
 
Public function ControlToScreen(const APoint: TPoint): TPoint;
 
Public function GetChildsRect(Scrolled: boolean): TRect; virtual;
 
Public procedure Show;
 
Public procedure Update; virtual;
 
Public function HandleObjectShouldBeVisible: boolean; virtual;
 
Public function ParentDestroyingHandle: boolean;
 
Public function ParentHandlesAllocated: boolean; virtual;
 
Public procedure InitiateAction; virtual;
 
Public procedure ShowHelp; virtual;
 
Public function HasHelp: Boolean;
 
Public procedure RemoveAllHandlersOfObject(AnObject: TObject); override;
 
Public procedure AddHandlerOnResize(const OnResizeEvent: TNotifyEvent; AsLast: boolean = false);
 
Public procedure RemoveHandlerOnResize(const OnResizeEvent: TNotifyEvent);
 
Public procedure AddHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent; AsLast: boolean = false);
 
Public procedure RemoveHandlerOnChangeBounds(const OnChangeBoundsEvent: TNotifyEvent);
 
Public procedure AddHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent; AsLast: boolean = false);
 
Public procedure RemoveHandlerOnVisibleChanging(const OnVisibleChangingEvent: TNotifyEvent);
 
Public procedure AddHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent; AsLast: boolean = false);
 
Public procedure RemoveHandlerOnVisibleChanged(const OnVisibleChangedEvent: TNotifyEvent);
 

Eigenschaften

Public property AnchoredControls[Index: integer]: TControl read GetAnchoredControls;
 
Public property BaseBounds: TRect read FBaseBounds;
 
Public property ReadBounds: TRect read FReadBounds;
 
Public property Action: TBasicAction read GetAction write SetAction;
 
Public property Align: TAlign read FAlign write SetAlign;
 
Public property Anchors: TAnchors read FAnchors write SetAnchors stored IsAnchorsStored;
 
Public property AnchorSide[Kind: TAnchorKind]: TAnchorSide read GetAnchorSide;
 
Public property AutoSize: Boolean read FAutoSize write SetAutoSize default False;
 
Public property BorderSpacing: TControlBorderSpacing read FBorderSpacing write SetBorderSpacing;
 
Public property BoundsRect: TRect read GetBoundsRect write SetBoundsRect;
 
Public property BoundsRectForNewParent: TRect read FBoundsRectForNewParent write SetBoundsRectForNewParent;
 
Public property Caption: TCaption read GetText write SetText stored IsCaptionStored;
 
Public property CaptureMouseButtons: TCaptureMouseButtons read FCaptureMouseButtons write FCaptureMouseButtons stored CaptureMouseButtonsIsStored default [mbLeft];
 
Public property ClientHeight: Integer read GetClientHeight write SetClientHeight stored False;
 
Public property ClientOrigin: TPoint read GetClientOrigin;
 
Public property ClientRect: TRect read GetClientRect;
 
Public property ClientWidth: Integer read GetClientWidth write SetClientWidth stored False;
 
Public property Color: TColor read FColor write SetColor stored ColorIsStored default clWindow;
 
Public property Constraints: TSizeConstraints read FConstraints write SetConstraints;
 
Public property ControlOrigin: TPoint read GetControlOrigin;
 
Public property ControlState: TControlState read FControlState write FControlState;
 
Public property ControlStyle: TControlStyle read FControlStyle write FControlStyle;
 
Public property Enabled: Boolean read GetEnabled write SetEnabled stored IsEnabledStored default True;
 
Public property Font: TFont read FFont write SetFont stored IsFontStored;
 
Public property IsControl: Boolean read FIsControl write FIsControl;
 
Public property MouseEntered: Boolean read FMouseEntered;
 
Public property OnChangeBounds: TNotifyEvent read FOnChangeBounds write FOnChangeBounds;
 
Public property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;
 
Public property OnResize: TNotifyEvent read FOnResize write FOnResize;
 
Public property OnShowHint: TControlShowHintEvent read FOnShowHint write FOnShowHint;
 
Public property Parent: TWinControl read FParent write SetParent;
 
Public property PopupMenu: TPopupmenu read GetPopupmenu write SetPopupMenu;
 
Public property ShowHint: Boolean read FShowHint write SetShowHint stored IsShowHintStored default False;
 
Public property Visible: Boolean read FVisible write SetVisible stored IsVisibleStored default True;
 
Public property WindowProc: TWndMethod read FWindowProc write FWindowProc;
 
Public property DockOrientation: TDockOrientation read FDockOrientation write FDockOrientation;
 
Public property Floating: Boolean read GetFloating;
 
Public property FloatingDockSiteClass: TWinControlClass read GetFloatingDockSiteClass write FFloatingDockSiteClass;
 
Public property HostDockSite: TWinControl read FHostDockSite write SetHostDockSite;
 
Public property LRDockWidth: Integer read GetLRDockWidth write FLRDockWidth;
 
Public property TBDockHeight: Integer read GetTBDockHeight write FTBDockHeight;
 
Public property UndockHeight: Integer read GetUndockHeight write FUndockHeight;
 
Public property UndockWidth: Integer read GetUndockWidth write FUndockWidth;
 
Published property AnchorSideLeft: TAnchorSide index 0 read GetAnchorSideIndex write SetAnchorSideIndex;
 
Published property AnchorSideTop: TAnchorSide index 1 read GetAnchorSideIndex write SetAnchorSideIndex;
 
Published property AnchorSideRight: TAnchorSide index 2 read GetAnchorSideIndex write SetAnchorSideIndex;
 
Published property AnchorSideBottom: TAnchorSide index 3 read GetAnchorSideIndex write SetAnchorSideIndex;
 
Published property Cursor: TCursor read FCursor write SetCursor default crDefault;
 
Published property Left: Integer read FLeft write SetLeft;
 
Published property Height: Integer read FHeight write SetHeight;
 
Published property Hint: TTranslateString read FHint write SetHint;
 
Published property Top: Integer read FTop write SetTop;
 
Published property Width: Integer read FWidth write SetWidth;
 
Published property HelpType: THelpType read FHelpType write FHelpType default htContext;
 
Published property HelpKeyword: String read FHelpKeyword write SetHelpKeyword stored IsHelpKeyWordStored;
 
Published property HelpContext: THelpContext read FHelpContext write SetHelpContext stored IsHelpContextStored;
 

Erstellt mit PasDoc 0.10.0 am 2007-03-27 23:02:54