class TCustomEditor : public TDefaultEditor
{
protected:
    virtual void __fastcall EditProperty(const Designintf::_di_IProperty Prop,
        bool &Continue);
};

void __fastcall TCustomEditor::EditProperty(const Designintf::_di_IProperty Prop,
    bool &Continue)
{
    if (CompareText(Prop->GetName(), "TARGET") == 0)
    {
        Prop->Edit();
        Continue = false;
    }
    else
        inherited::EditProperty(Prop, Continue);
}

Continue 가 false 가 될 때까지 모든 Property 에 대하여 순서대로 EditProperty 가 호출된다.
대소문자 구분없이 Property name 을 비교하여 Edit 를 하고 Continue = false; 를 하면 된다.

+ Recent posts