Unit Forms

BeschreibungusesKlassen, Schnittstellen und ObjekteFunktionen und ProzedurenTypenKonstantenVariablen

Beschreibung

 

uses

Übersicht

Klassen, Schnittstellen und Objekte

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  

Funktionen und Prozeduren

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;

Typen

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;

Konstanten

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]);

Variablen

OnGetDesignerForm: TGetDesignerFormEvent = nil;
Application: TApplication = nil;
Screen: TScreen = nil;
ExceptionObject: TExceptObject;
HintWindowClass: THintWindowClass = THintWindow;
MessageBoxFunction: TMessageBoxFunction = nil;

Beschreibung

Funktionen und Prozeduren

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;
 

Typen

TProcedure = procedure;
 
TProcedureOfObject = procedure of object;
 
TPosition = (...);
 
Values
  • poDesigned:
  • poDefault:
  • poDefaultPosOnly:
  • poDefaultSizeOnly:
  • poScreenCenter:
  • poDesktopCenter:
  • poMainFormCenter:
  • poOwnerFormCenter:
TWindowState = (...);
 
Values
  • wsNormal:
  • wsMinimized:
  • wsMaximized:
TCloseAction = (...);
 
Values
  • caNone:
  • caHide:
  • caFree:
  • caMinimize:
TScrollBarKind = (...);
 
Values
  • sbHorizontal:
  • sbVertical:
TScrollBarInc = 1..32768;
 
TScrollBarStyle = (...);
 
Values
  • ssRegular:
  • ssFlat:
  • ssHotTrack:
TCustomFrameClass = class of TCustomFrame;
 
TBorderIcon = (...);
 
Values
  • biSystemMenu:
  • biMinimize:
  • biMaximize:
  • biHelp:
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
  • fsCreating:
  • fsVisible:
  • fsShowing:
  • fsModal:
  • fsCreatedMDIChild:
  • fsBorderStyleChanged:
  • fsFormStyleChanged:
  • fsFirstShow:
TFormState = set of TFormStateType;
 
TModalResult = low(Integer)..high(Integer);
 
PModalResult = ˆTModalResult;
 
TFormHandlerType = (...);
 
Values
  • fhtFirstShow:
  • fhtClose:
  • fhtCreate:
TShowInTaskbar = (...);
 
Values
  • stDefault:
  • stAlways:
  • stNever:
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
  • snFormAdded:
  • snRemoveForm:
  • snActiveControlChanged:
  • snActiveFormChanged:
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
  • ahtNone:
  • ahtShowHint:
  • ahtHideHint:
  • ahtReshowHint:
TShowHintEvent = procedure (var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo) of object;
 
TApplicationFlag = (...);
 
Values
  • AppWaiting:
  • AppIdleEndSent:
  • AppHandlingException:
  • AppNoExceptionMessages:
  • AppActive:
  • AppDestroying:
  • AppDoNotCallAsyncQueue:
TApplicationFlags = set of TApplicationFlag;
 
TApplicationNavigationOption = (...);
 
Values
  • anoTabToSelectNext:
  • anoReturnForDefaultControl:
  • anoEscapeForCancelControl:
  • anoF1ForHelp:
TApplicationNavigationOptions = set of TApplicationNavigationOption;
 
TApplicationHandlerType = (...);
 
Values
  • ahtIdle:
  • ahtIdleEnd:
  • ahtKeyDownBefore:
  • ahtKeyDownAfter:
  • ahtActivate:
  • ahtDeactivate:
  • ahtUserInput:
PAsyncCallQueueItem = ˆTAsyncCallQueueItem;
 
TApplicationType = (...);
 
Values
  • atDefault:
  • atDesktop:
  • atHandheld:
  • atPDA:
  • atSmartphone:
TFocusState = Pointer;
 
TGetDesignerFormEvent = function(AComponent: TComponent): TCustomForm of object;
 
TMessageBoxFunction = function(Text, Caption : PChar; Flags : Longint) : Integer;
 

Konstanten

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]);
 

Variablen

OnGetDesignerForm: TGetDesignerFormEvent = nil;
 
Application: TApplication = nil;
 
Screen: TScreen = nil;
 
ExceptionObject: TExceptObject;
 
HintWindowClass: THintWindowClass = THintWindow;
 
MessageBoxFunction: TMessageBoxFunction = nil;
 

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