Beschreibung | uses | Klassen, Schnittstellen und Objekte | Funktionen und Prozeduren | Typen | Konstanten | Variablen |
Name | Beschreibung |
---|---|
Klasse TCustomHintAction |
|
Klasse EScrollBar |
|
Klasse TControlScrollBar |
|
Klasse TScrollingWinControl |
|
Klasse TScrollBox |
|
Klasse TCustomFrame |
|
Klasse TFrame |
|
Klasse TCustomForm |
|
Klasse TForm |
|
Klasse TCustomDockForm |
|
Klasse THintWindow |
|
record TCursorRec |
|
Klasse TScreen |
|
record TCMHintShow |
|
record TCMHintShowPause |
|
record THintInfoAtMouse |
|
record TAsyncCallQueueItem |
|
Klasse TApplication |
|
Klasse TApplicationProperties |
|
Klasse TIDesigner |
|
Klasse TFormPropertyStorage |
|
Klasse TDataModule |
function KeysToShiftState(Keys: Word): TShiftState; |
function KeyDataToShiftState(KeyData: Longint): TShiftState; |
function WindowStateToStr(const State: TWindowState): string; |
function StrToWindowState(const Name: string): TWindowState; |
function SaveFocusState: TFocusState; |
procedure RestoreFocusState(FocusState: TFocusState); |
function GetParentForm(Control:TControl): TCustomForm; |
function GetFirstParentForm(Control:TControl): TCustomForm; |
function GetDesignerForm(AComponent: TComponent): TCustomForm; |
function FindRootDesigner(AComponent: TComponent): TIDesigner; |
function IsAccel(VK: word; const Str: string): Boolean; |
procedure NotifyApplicationUserInput(Msg: Cardinal); |
function GetShortHint(const Hint: string): string; |
function GetLongHint(const Hint: string): string; |
procedure FreeWidgetSet; |
procedure Register; |
TProcedure = procedure; |
TProcedureOfObject = procedure of object; |
TPosition = (...); |
TWindowState = (...); |
TCloseAction = (...); |
TScrollBarKind = (...); |
TScrollBarInc = 1..32768; |
TScrollBarStyle = (...); |
TCustomFrameClass = class of TCustomFrame; |
TBorderIcon = (...); |
TBorderIcons = set of TBorderIcon; |
TCloseEvent = procedure(Sender: TObject; var CloseAction: TCloseAction) of object; |
TCloseQueryEvent = procedure(Sender : TObject; var CanClose : boolean) of object; |
THelpEvent = function(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean of object; |
TShortCutEvent = procedure (var Msg: TLMKey; var Handled: Boolean) of object; |
TFormStateType = (...); |
TFormState = set of TFormStateType; |
TModalResult = low(Integer)..high(Integer); |
PModalResult = ˆTModalResult; |
TFormHandlerType = (...); |
TShowInTaskbar = (...); |
TCustomFormClass = class of TCustomForm; |
TFormClass = class of TForm; |
THintWindowClass = class of THintWindow; |
PCursorRec = ˆTCursorRec; |
TScreenFormEvent = procedure(Sender: TObject; Form: TCustomForm) of object; |
TScreenActiveFormChangedEvent = procedure(Sender: TObject; LastForm: TCustomForm) of object; |
TScreenControlEvent = procedure(Sender: TObject; LastControl: TControl) of object; |
TScreenNotification = (...); |
TQueryEndSessionEvent = procedure (var Cancel : Boolean) of object; |
TExceptionEvent = procedure (Sender: TObject; E: Exception) of object; |
TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object; |
TOnUserInputEvent = procedure(Sender: TObject; Msg: Cardinal) of object; |
TDataEvent = procedure (Data: PtrInt) of object; |
TAppHintTimerType = (...); |
TShowHintEvent = procedure (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo) of object; |
TApplicationFlag = (...); |
TApplicationFlags = set of TApplicationFlag; |
TApplicationNavigationOption = (...); |
TApplicationNavigationOptions = set of TApplicationNavigationOption; |
TApplicationHandlerType = (...); |
PAsyncCallQueueItem = ˆTAsyncCallQueueItem; |
TApplicationType = (...); |
TFocusState = Pointer; |
TGetDesignerFormEvent = function(AComponent: TComponent): TCustomForm of object; |
TMessageBoxFunction = function(Text, Caption : PChar; Flags : Longint) : Integer; |
AddDataModule: procedure (DataModule: TDataModule) of object = nil; |
RemoveDataModule: procedure (DataModule: TDataModule) of object = nil; |
ApplicationHandleException: procedure (Sender: TObject) of object = nil; |
ApplicationShowException: procedure (E: Exception) of object = nil; |
DefaultBorderIcons : array[TFormBorderStyle] of TBorderIcons =
([],
[biSystemMenu, biMinimize],
[biSystemMenu, biMinimize, biMaximize],
[biSystemMenu],
[biSystemMenu, biMinimize],
[biSystemMenu, biMinimize, biMaximize]); |
OnGetDesignerForm: TGetDesignerFormEvent = nil; |
Application: TApplication = nil; |
Screen: TScreen = nil; |
ExceptionObject: TExceptObject; |
HintWindowClass: THintWindowClass = THintWindow; |
MessageBoxFunction: TMessageBoxFunction = nil; |
function KeysToShiftState(Keys: Word): TShiftState; |
function KeyDataToShiftState(KeyData: Longint): TShiftState; |
function WindowStateToStr(const State: TWindowState): string; |
function StrToWindowState(const Name: string): TWindowState; |
function SaveFocusState: TFocusState; |
procedure RestoreFocusState(FocusState: TFocusState); |
function GetParentForm(Control:TControl): TCustomForm; |
function GetFirstParentForm(Control:TControl): TCustomForm; |
function GetDesignerForm(AComponent: TComponent): TCustomForm; |
function FindRootDesigner(AComponent: TComponent): TIDesigner; |
function IsAccel(VK: word; const Str: string): Boolean; |
procedure NotifyApplicationUserInput(Msg: Cardinal); |
function GetShortHint(const Hint: string): string; |
function GetLongHint(const Hint: string): string; |
procedure FreeWidgetSet; |
procedure Register; |
TProcedure = procedure; |
TProcedureOfObject = procedure of object; |
TPosition = (...); |
Values
|
TWindowState = (...); |
Values
|
TCloseAction = (...); |
Values
|
TScrollBarKind = (...); |
Values
|
TScrollBarInc = 1..32768; |
TScrollBarStyle = (...); |
Values
|
TCustomFrameClass = class of TCustomFrame; |
TBorderIcon = (...); |
Values
|
TBorderIcons = set of TBorderIcon; |
TCloseEvent = procedure(Sender: TObject; var CloseAction: TCloseAction) of object; |
TCloseQueryEvent = procedure(Sender : TObject; var CanClose : boolean) of object; |
THelpEvent = function(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean of object; |
TShortCutEvent = procedure (var Msg: TLMKey; var Handled: Boolean) of object; |
TFormStateType = (...); |
Values
|
TFormState = set of TFormStateType; |
TModalResult = low(Integer)..high(Integer); |
PModalResult = ˆTModalResult; |
TFormHandlerType = (...); |
Values
|
TShowInTaskbar = (...); |
Values
|
TCustomFormClass = class of TCustomForm; |
TFormClass = class of TForm; |
THintWindowClass = class of THintWindow; |
PCursorRec = ˆTCursorRec; |
TScreenFormEvent = procedure(Sender: TObject; Form: TCustomForm) of object; |
TScreenActiveFormChangedEvent = procedure(Sender: TObject; LastForm: TCustomForm) of object; |
TScreenControlEvent = procedure(Sender: TObject; LastControl: TControl) of object; |
TScreenNotification = (...); |
Values
|
TQueryEndSessionEvent = procedure (var Cancel : Boolean) of object; |
TExceptionEvent = procedure (Sender: TObject; E: Exception) of object; |
TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object; |
TOnUserInputEvent = procedure(Sender: TObject; Msg: Cardinal) of object; |
TDataEvent = procedure (Data: PtrInt) of object; |
TAppHintTimerType = (...); |
Values
|
TShowHintEvent = procedure (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo) of object; |
TApplicationFlag = (...); |
Values
|
TApplicationFlags = set of TApplicationFlag; |
TApplicationNavigationOption = (...); |
Values
|
TApplicationNavigationOptions = set of TApplicationNavigationOption; |
TApplicationHandlerType = (...); |
Values
|
PAsyncCallQueueItem = ˆTAsyncCallQueueItem; |
TApplicationType = (...); |
Values
|
TFocusState = Pointer; |
TGetDesignerFormEvent = function(AComponent: TComponent): TCustomForm of object; |
TMessageBoxFunction = function(Text, Caption : PChar; Flags : Longint) : Integer; |
AddDataModule: procedure (DataModule: TDataModule) of object = nil; |
RemoveDataModule: procedure (DataModule: TDataModule) of object = nil; |
ApplicationHandleException: procedure (Sender: TObject) of object = nil; |
ApplicationShowException: procedure (E: Exception) of object = nil; |
DefaultBorderIcons : array[TFormBorderStyle] of TBorderIcons =
([],
[biSystemMenu, biMinimize],
[biSystemMenu, biMinimize, biMaximize],
[biSystemMenu],
[biSystemMenu, biMinimize],
[biSystemMenu, biMinimize, biMaximize]); |
OnGetDesignerForm: TGetDesignerFormEvent = nil; |
Application: TApplication = nil; |
Screen: TScreen = nil; |
ExceptionObject: TExceptObject; |
HintWindowClass: THintWindowClass = THintWindow; |
MessageBoxFunction: TMessageBoxFunction = nil; |