// Borland C++ Builder // Copyright (c) 1995, 1999 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'TntForms.pas' rev: 5.00 #ifndef TntFormsHPP #define TntFormsHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Tntforms { //-- type declarations ------------------------------------------------------- class DELPHICLASS TTntForm; class PASCALIMPLEMENTATION TTntForm : public Forms::TForm { typedef Forms::TForm inherited; private: WideString __fastcall GetCaption(); void __fastcall SetCaption(const WideString Value); protected: virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params); public: virtual void __fastcall DefaultHandler(void *Message); __published: __property WideString Caption = {read=GetCaption, write=SetCaption}; public: #pragma option push -w-inl /* TCustomForm.Create */ inline __fastcall virtual TTntForm(Classes::TComponent* AOwner) : Forms::TForm( AOwner) { } #pragma option pop #pragma option push -w-inl /* TCustomForm.CreateNew */ inline __fastcall virtual TTntForm(Classes::TComponent* AOwner, int Dummy ) : Forms::TForm(AOwner, Dummy) { } #pragma option pop #pragma option push -w-inl /* TCustomForm.Destroy */ inline __fastcall virtual ~TTntForm(void) { } #pragma option pop public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TTntForm(HWND ParentWindow) : Forms::TForm(ParentWindow ) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE void __fastcall EnableManualPeekMessageWithRemove(void); extern PACKAGE void __fastcall DisableManualPeekMessageWithRemove(void); } /* namespace Tntforms */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Tntforms; #endif #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // TntForms