請參考以下的 code, 大於及小於的符號已改成全形字    MyPanel.H    //---------------------------------------------------------------------------    #ifndef MyPanelH #define MyPanelH //--------------------------------------------------------------------------- #include ＜SysUtils.hpp＞ #include ＜Classes.hpp＞ #include ＜Controls.hpp＞ #include ＜ExtCtrls.hpp＞ #include ＜DesignEditors.hpp＞ #include ＜TypInfo.hpp＞ #include ＜Dialogs.hpp＞ //--------------------------------------------------------------------------- class TMyPanelFileNameProperty : public TStringProperty { public:    TPropertyAttributes __fastcall GetAttributes()    {       return TPropertyAttributes()Execute()) { Value=dlg->FileName; } delete dlg; } }; class PACKAGE TMyPanel : public TPanel { private: String FFileName; void __fastcall SetFileName(String value); protected: public: __fastcall TMyPanel(TComponent* Owner); __published: __property String FileName={read=FFileName, write=SetFileName}; }; //--------------------------------------------------------------------------- #endif MyPanel.cpp //--------------------------------------------------------------------------- #include ＜vcl.h＞ #pragma hdrstop #include "MyPanel.h" #pragma package(smart_init) //--------------------------------------------------------------------------- // ValidCtrCheck is used to assure that the components created do not have // any pure virtual functions. // static inline void ValidCtrCheck(TMyPanel *) { new TMyPanel(NULL); } //--------------------------------------------------------------------------- __fastcall TMyPanel::TMyPanel(TComponent* Owner) : TPanel(Owner) { // Caption=" "; } //--------------------------------------------------------------------------- void __fastcall TMyPanel::SetFileName(String value) { FFileName=value; } //--------------------------------------------------------------------------- /* TTypeInfo* AnsiStringTypeInfo(void) { TTypeInfo* typeInfo=new TTypeInfo; typeInfo->Name="AnsiString"; typeInfo->Kind=tkLString; return typeInfo; } */ //--------------------------------------------------------------------------- namespace Mypanel { void __fastcall PACKAGE Register() { // RegisterPropertyEditor(AnsiStringTypeInfo(), __classid(TMyPanel), // "FFileName", __classid(TMyPanelFileNameProperty)); TComponentClass classes[1] = {__classid(TMyPanel)}; RegisterComponents("Samples", classes, 0); PPropInfo PropInfo=GetPropInfo(__typeinfo(TMyPanel), "FileName"); RegisterPropertyEditor(*(PropInfo->PropType), __classid(TMyPanel), "FileName", __classid(TMyPanelFileNameProperty)); } } //--------------------------------------------------------------------------- 這個 component 可以 compile 及 install 無誤, 但是開一個新的 application 引用這個元件想要執行時, 在 link 會有一大堆 unsolved external TStringProperty::... 的 error, 請問要如何避免. Jesse Chan

------
Jesse Chan

引言: 這個 component 可以 compile 及 install 無誤, 但是開一個新的 application 引用這個元件想要執行時, 在 link 會有一大堆 unsolved external TStringProperty::... 的 error, 請問要如何避免.

jessechan 你好:
先提供二個醜方法(參考參考)
(>    -- 
        

引言:

引言: 這個 component 可以 compile 及 install 無誤, 但是開一個新的 application 引用這個元件想要執行時, 在 link 會有一大堆 unsolved external TStringProperty::... 的 error, 請問要如何避免.

jessechan 你好:
先提供二個醜方法(參考參考)
(>    -- >< face="Verdana, Arial, Helvetica">    除了這兩個方法外, 不知還有沒有好一點的方法 ? 請大家再幫忙想想看.    Jesse Chan