Pascal 7 & Objects


         

TControl ODialogs


------------------------------------------------------------------

TObject TWindowsObject +------+ +----------------------------------------+ +------| | ChildList arent | |-Init-| | Flags Status | |-Done-| | HWindow TransferBuffer | | Free | | Instance | +------+ +----------------------------------------| |-Init-------- GetChildren | |-Load-------- -GetClassName-------| | Done GetClient | | AddChild -GetId--------------| | At GetSiblingtr | | Canclose -GetWindowClass-----| | ChildWithId IndexOf | | CloseWindow IsFlagSet | | CMExit Next | |-Create------ revious | | CreateChildren utChildtr | | CreateMemoryDC utChildren | | DefChildroc utSiblingtr | | DefCommandroc -Register-----------| | DefNotificationroc RemoveChild | |-DefWndroc-- SetFlags | | Destroy -SetuWindow--------| | Disable Show | | DisableAutoCreate -Store--------------| | DisableTransfer Transfer | | DisatchScroll TransferData | | Enable -WMActivate---------| | EnableAutoCreate WMClose | | EnableKBHandler WMCommand | | EnableTransfer WMDestroy | | FirstThat -WMNScroll----------| | Focus WMNCDestroy | | ForEach WMNQueryEndSession | | GetChildtr -WMVScroll----------| +----------------------------------------+

TWindow TControl +-------------------+ +-----------------+ | Attr | +-----------------| | Defaultroc | | Init | | Scrol[ler | | InitResource | | FocusChildHandle | | GetClassName | +-------------------| | Register | |-Init--------------| | WMaint | |-InitResource------| +-----------------+ | Load | | Done | | Create | | DefWndroc | | FocusChild | | GetId | | GetWindowClass | | aint | | SetCation | | SetuWindow | | Store | | UdateFocusChild | | WMActivate | | WMHScroll | | WMLButtonDown | | WMMDIActivate | | WMMove | |-WMaint-----------| | WMSize | | WMSysCommand | | WMVScroll | +-------------------+

TControl - , - , , TScrollBar TButton. TMDIClient - - MDI.