Dear all:    這兒有一段設計元件的程式，我開放了一個 aString 的屬性，本來是預期在 Object Inspector 裡連按 aString 的屬性時會開起對話視窗，可是卻沒有，我覺得可能是呼叫 RegisterPropertyEditor 時出現了問題，我是用 BCB6 編譯，希望有人能幫忙解惑，謝謝。

//---------------------------------------------------------
class PACKAGE TSxStringProperty: public TStringProperty
{
public:
    virtual TPropertyAttributes __fastcall GetAttributes()
    {
        return TPropertyAttributes()FileName;
        }
        delete OpenDialog;
    }
};
//---------------------------------------------------------
class PACKAGE TSxWinControl: public TWinControl
{
private:
    AnsiString FString;
protected:
public:
    __fastcall TSxWinControl(TComponent* Owner);
__published:
    __property AnsiString aString={read=FString.write=SetString};
};
//---------------------------------------------------------
TTypeInfo* __fastcall AnsiStringTypeInfo()
{
        TTypeInfo* TypeInfo=new TTypeInfo();
        TypeInfo->Name="AnsiString";
        TypeInfo->Kind=tkLString;
        return TypeInfo;
}
//---------------------------------------------------------
namespace Sxwincontrol
{
    void __fastcall PACKAGE Register()
    {
        RegisterPropertyEditor(AnsiStringTypeInfo(),
            __classid(TSxWinControl),"aString",
            __classid(TSxStringProperty));            TComponentClass classes[1]={__classid(TSxWinControl)};
        RegisterComponents("Sx",classes,0);
    }
}
//---------------------------------------------------------

發表人 - yomigae 於 2003/10/06 14:20:30 發表人 - Gemi0305 於 2003/10/06 15:30:57

已經在網路上找到答案了，辛苦各位了。 In addition to this, registering AnsiString property editors is not straight forward. The easiest ways to do this is in your Register procedure get the TypeInfo from the property itself since you can't get it from the AnsiString class. Something like TPropInfo *PropInfo = ::GetPropInfo(__typeinfo(TMyComponent), "MyString"); RegisterPropertyEditor(*PropInfo->PropType, __classid(TMyComponent), "MyString", __classid(TMyStringPropEditor));