請問要如何元件新增自訂屬性

譬如動態新增一個Edit , 但想增加一個屬於此Edit 的文字屬性，可用來放一些額外資訊

如 Edit ->info_Text1 ，Edit ->info_Text2， Edit ->info_Text3

編輯記錄

您必須寫一個繼承 TEdit 之 TMyEdit 元件

MyEdit.h 如下例:

[code cpp]
//---------------------------------------------------------------------------
#ifndef MyEditH
#define MyEditH
//---------------------------------------------------------------------------
#include
#include
//....
//---------------------------------------------------------------------------
class PACKAGE MyEdit : public TEdit
{
private:
// ....
String Finfo_Text1,Finfo_Text2,Finfo_Text3;
void __fastcall Setinfo_Text1(String Value);
void __fastcall Setinfo_Text2(String Value);
void __fastcall Setinfo_Text3(String Value);
// ....
protected:
virtual void __fastcall Loaded(void);
/* if need
DYNAMIC void __fastcall Change(void);
DYNAMIC void __fastcall DoEnter(void);
DYNAMIC void __fastcall DoExit(void);
DYNAMIC void __fastcall KeyDown(Word &Key, Classes::TShiftState Shift);
DYNAMIC void __fastcall KeyPress(char &Key);
*/
public:
__fastcall TMyEdit(TComponent* Owner);
__fastcall ~TMyEdit();
// ....
__published:
__property String info_Text1 = {read=Finfo_Text1, write=Setinfo_Text1};
__property String info_Text2 = {read=Finfo_Text2, write=Setinfo_Text2};
__property String info_Text3 = {read=Finfo_Text3, write=Setinfo_Text3};
// ....
};
//---------------------------------------------------------------------------
#endif
[/code]

MyEdit.cpp 如下例:

[code cpp]
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "MyEdit.h"
// ....
#pragma resource "MyEdit.res" // 或沿用繼承來源 class 之 Bmp 則免本宣告
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
static inline void ValidCtrCheck(TMyEdit *)
{
new TMyEdit(NULL);
}
//---------------------------------------------------------------------------
// 注意: namespace 必須首字母大寫, 其他小寫. RegisterComponents 之面板名稱自行命名
namespace Myedit
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TMyEdit)};
RegisterComponents("MyComponent", classes, 0);
}
}
//---------------------------------------------------------------------------
__fastcall TMyEdit::TMyEdit(TComponent* Owner) : TEdit(Owner)
{
Finfo_Text1 = "";
Finfo_Text2 = "";
Finfo_Text3 = "";
}
//---------------------------------------------------------------------------
__fastcall TMyEdit::~TMyEdit()
{
// delete 於 construct 時 new 之 TStringList 等
}
//---------------------------------------------------------------------------
void __fastcall TMyEdit::Loaded()
{
inherited::Loaded();
if (ComponentState.Contains(csDesigning)) return;
// Something you want to do
}
//---------------------------------------------------------------------------
void __fastcall TMyEdit::Setinfo_Text1(String Value)
{
Finfo_Text1 = Value;
}
//---------------------------------------------------------------------------
void __fastcall TMyEdit::Setinfo_Text2(String Value)
{
Finfo_Text2 = Value;
}
//---------------------------------------------------------------------------
void __fastcall TMyEdit::Setinfo_Text3(String Value)
{
Finfo_Text3 = Value;
}
//---------------------------------------------------------------------------
[/code]


===================引 用 suntea 文 章===================
請問要如何元件新增自訂屬性

譬如動態新增一個Edit , 但想增加一個屬於此Edit 的文字屬性，可用來放一些額外資訊

如 Edit ->info_Text1 ，Edit ->info_Text2， Edit ->info_Text3