我之前寫了一個元件是繼承自 TPanel, 上面放了四個 TEdit, 最近要使用時發現 TPanel 沒有 OnChange 的事件可以繼承, 但是我想幫我的元件製造一個 OnChange 的元件, 在上述的四個 TEdit 中任一個的 OnChange 被觸發時都可以被觸發, 請問要如何做.

------
Jesse Chan

編輯記錄

請問 TEdit 也是包在您自製的物件裡嗎?
還是在編輯時另外擺上去的?

------
我..........還很嫩!

[code cpp]
//---------------------------------------------------------------------------
#ifndef EditPanelH
#define EditPanelH
//---------------------------------------------------------------------------
#include
#include
#include
#include
//---------------------------------------------------------------------------
typedef void __fastcall (__closure *TEditChangeEvent)(TObject* Sender,
int Index, TEdit* edit);
//---------------------------------------------------------------------------
class PACKAGE TEditPanel : public TCustomPanel
{
private:
TEditChangeEvent FOnEditChange;
TEdit* __fastcall GetEdits(int Index);
protected:
TEdit* FEdits[4];
void __fastcall ArrangeEdits();
void __fastcall PanelEditChanged(TObject* Sender);
public:
__fastcall TEditPanel(TComponent* Owner);
__property TEdit* Edits[int Index]={read=GetEdits};
__published:
__property TEditChangeEvent OnEditChange={read=FOnEditChange,
write=FOnEditChange};
};
//---------------------------------------------------------------------------
#endif
[/code]


[code cpp]
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "EditPanel.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(TEditPanel *)
{
new TEditPanel(NULL);
}
//---------------------------------------------------------------------------
namespace Editpanel
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TEditPanel)};
RegisterComponents("Samples", classes, 0);
}
}
//---------------------------------------------------------------------------
__fastcall TEditPanel::TEditPanel(TComponent* Owner): TCustomPanel(Owner)
{
Width = 127;
Height = 110;
for(int i=0; i<4; i ){
FEdits[i] = new TEdit(this);
FEdits[i]->Parent = this;
FEdits[i]->Tag = i;
FEdits[i]->OnChange = &PanelEditChanged;
}
ArrangeEdits();
}
//---------------------------------------------------------------------------
void __fastcall TEditPanel::ArrangeEdits()
{
TRect r = Rect(5,5,121,21);
for(int i=0; i<4; i ){
FEdits[i]->BoundsRect = r;
OffsetRect(r, 0, 25);
}
}
//---------------------------------------------------------------------------
TEdit* __fastcall TEditPanel::GetEdits(int Index)
{
return FEdits[Index];
}
//---------------------------------------------------------------------------
void __fastcall TEditPanel::PanelEditChanged(TObject* Sender)
{
if(FOnEditChange)FOnEditChange(this, ((TEdit*)Sender)->Tag, (TEdit*)Sender);
}
//---------------------------------------------------------------------------
[/code]



[code cpp]
//---------------------------------------------------------------------------
#include
#include
#include
#include <Forms.hpp><br />#include "EditPanel.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:
TLabel *Label1;
private:
protected:
TEditPanel* FEditPanel;
void __fastcall DO_ON_EDIT_CHANGE(TObject* Sender, int Index, TEdit* e);
public:
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
[/code]


[code cpp]
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "fMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{
FEditPanel = new TEditPanel(this);
FEditPanel->Parent = this;
FEditPanel->Left = 10;
FEditPanel->Top = 10;
FEditPanel->OnEditChange = &DO_ON_EDIT_CHANGE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DO_ON_EDIT_CHANGE(TObject* Sender, int Index, TEdit* e)
{
Label1->Caption = IntToStr(Index) ", " e->Text;
}
//---------------------------------------------------------------------------
[/code]

沒想到這麼久了還有人回覆, 多謝了.

------
Jesse Chan