[code cpp]
typedef void __fastcall (__closure *TRun)(int DelayTime);
class PACKAGE TMyObject : public TCustomPanel
{
private:
TRun fRun;
protected:
public:
__fastcall TMyObject(TComponent* Owner);
__fastcall ~TMyObject();
__published:
__property TRun Run={read=fRun,write=fRun};
};
[/code]

在設計階段使用這個元件時，我們要怎麼知道 fRun這個事件有沒有
被使用者建立呢？

判斷fRun是不是空指標,基本上事件所用的變數是
一種function pointer, 用來指向使用端掛載的
事件處理程序(Event Handler)

編輯記錄

判斷 fRun 是不是空指標只能在執行階段才能用
但在程式的設計階段，就不能判斷到了

===================引 用 jow 文 章===================
判斷fRun是不是空指標,基本上事件所用的變數是
一種function pointer, 用來指向使用端掛載的
事件處理程序(Event Handler)

手邊沒有BC, 用Delphi寫了一個元件來測試
<textarea class="delphi" rows="10" cols="60" name="code">unit CustomPanel1; interface uses Windows, Messages, SysUtils, Classes, Controls, ExtCtrls; type TRunEvent = function(Sender: TObject): Integer of object; TCustomPanel1 = class(TCustomPanel) private FOnRun: TRunEvent; FRunResult: Integer; function GetRunResult: Integer; procedure SetRunResult(const Value: Integer); function DO_ON_RUN(Sender: TObject): Integer; public constructor Create(AOwner: TComponent); override; published property RunResult: Integer read GetRunResult write SetRunResult; property OnRun: TRunEvent read FOnRun write FOnRun; end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TCustomPanel1]); end; { TCustomPanel1 } constructor TCustomPanel1.Create(AOwner: TComponent); begin inherited; if not Assigned(FOnRun) then FOnRun := DO_ON_RUN; end; function TCustomPanel1.DO_ON_RUN(Sender: TObject): Integer; begin Result := 99999; end; function TCustomPanel1.GetRunResult: Integer; begin Result := -1; if Assigned(FOnRun) then Result := FOnRun(Self); end; procedure TCustomPanel1.SetRunResult(const Value: Integer); begin FRunResult := Value; end; end. </textarea>
Install Component後,New 一個 Application,
從元件盤 Sample 將 TCustomPanel1 拖曳到TForm1上,
結果 RunResult = 99999, 證明FOnRun 在 Design Time 時
就被指定了.

constructor TCustomPanel1.Create(AOwner: TComponent);
begin
inherited;
if not Assigned(FOnRun) then
FOnRun := DO_ON_RUN;
end;

僅供參考.

編輯記錄

補充說明:
上一篇所謂的指定,是元件中的Default Handler,

implementation
uses SysUtils;
{$R *.dfm}
//雙擊Events中的OnRun, 加入以下程式碼,此時(Design Time)
//元件檢視器中CustomPanel11的RunResult值等於-1,這才證明
//元件使用者指定了自訂的Handler.
function TForm1.CustomPanel11Run(Sender: TObject): Integer;
begin
Result := 11111;
end;

//執行程式後,按下Button1, Label1.Caption顯示 11111.
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(CustomPanel11.RunResult);
end;

 以下是我的寫法
[code cpp]

//TCustomPanel1.h
typedef void __fastcall (__closure *TRun)(int DelayTime);
//---------------------------------------------------------------------------
class PACKAGE TCustomPanel1 : public TCustomPanel
{
private:
TRun fRun;
protected:
public:
__fastcall TCustomPanel1(TComponent* Owner);
virtual void __fastcall Paint(void);
__published:
__property TRun Run={read=fRun,write=fRun};
};

//TCustomPanel1.cpp
static inline void ValidCtrCheck(TCustomPanel1 *)
{
new TCustomPanel1(NULL);
}
//---------------------------------------------------------------------------
__fastcall TCustomPanel1::TCustomPanel1(TComponent* Owner)
: TCustomPanel(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TCustomPanel1::Paint(void)
{
if (fRun!=NULL)
Color = clBlue;
else
Color = clGreen;
}
//---------------------------------------------------------------------------
namespace Custompanel1
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TCustomPanel1)};
RegisterComponents("Samples", classes, 0);
}
}
//---------------------------------------------------------------------------
[/code]

上面表示
當元件重繪時就會去判斷 fRun是否有被指定
有的話，元件顏色為Blue，沒有的話，就是Green

而當
Install Component後,New 一個 Application,
從元件盤 Sample 將 TCustomPanel1 拖曳到TForm1上,
結果顏色為Green <==這沒錯，因為我還沒將程式碼加入到 Run中

再來將程式碼加入 Run 中

[code cpp]
void __fastcall TForm1::CustomPanel11Run(int DelayTime)
{
ShowMessage(1);
}
[/code]

元件還是沒動靜，一樣是Green

接下來，執行Project
元件為Blue了

所以自訂事件的指定在設計階段還看不到有被指定

這邊我的想法是
當此元件被建立時 FOnRun 被未被指定，所以你就把FOnRun指定給 DO_ON_RUN;
所以
FOnRun != NULL

接下來

Install Component後,New 一個 Application,
從元件盤 Sample 將 TCustomPanel1 拖曳到TForm1上,
因而執行到 GetRunResult
想當然
其結果就會是 DO_ON_RUN 函數執行的結果了

而後，如果使用者自訂 Run 事件的程式碼後，執行時，當然會照所Key的程式碼動作

以上，謝謝jow的熱心回覆，此問題真的困擾我好久，一直想不到解決方法

===================引 用 jow 文 章===================
constructor TCustomPanel1.Create(AOwner: TComponent);
begin
inherited;
if not Assigned(FOnRun) then
FOnRun := DO_ON_RUN;
end;

僅供參考.