我目前 Inherit 了一個 ClientDataSet component, 我希望每次 Assign 一個 Value 到它的 CommandText 屬性時, 都去呼叫一個自定 Function 去做些事情, 該如何寫呢? 謝謝。 -- 小卜子

------
--
小卜子

Override its SetCommandText method.

引言: Override its SetCommandText method.

是否 VCL Component 中每個 Property 都有一個相應的 SetXXXX 對應的呢? 那麼我 Inherit 出來的 TMyComponent, 由我加上的 Property, 是否最好都用 SetXXXX 來 Assign value 呢? -- 小卜子 發表人 - diviner 於 2004/04/19 15:43:24

It depends, try to take a look at the source for TCustomClientDataSet in DBClient.pas.

引言: It depends, try to take a look at the source for TCustomClientDataSet in DBClient.pas.

我看了一下 DBClient.pas, 發覺我正想動手 override 的 method SetDataSource 並無 virtual, 我可以 override 嗎? -- 小卜子 發表人 - diviner 於 2004/04/19 18:12:43

    type
  B = class(TClientDataSet)
  private
    function GetDataSource: TDatasource;
    procedure SetDataSource(const Value: TDatasource);
  public
    property MasterSource: TDatasource read GetDataSource write SetDataSource;
  end ;    function B.GetDataSource: TDatasource;
begin
  Result := inherited MasterSource;
  ShowMessage( 'Get' );
end;    procedure B.SetDataSource(const Value: TDatasource);
begin
  Inherited MasterSource := Value ;
  ShowMessage( 'Set' );
end;

I think you can override its DataEvent (inherited from TDataSet) and look for deDataSetChange event.

引言:

type
  B = class(TClientDataSet)
  private
    function GetDataSource: TDatasource;
    procedure SetDataSource(const Value: TDatasource);
  public
    property MasterSource: TDatasource read GetDataSource write SetDataSource;
  end ;    function B.GetDataSource: TDatasource;
begin
  Result := inherited MasterSource;
  ShowMessage( 'Get' );
end;    procedure B.SetDataSource(const Value: TDatasource);
begin
  Inherited MasterSource := Value ;
  ShowMessage( 'Set' );
end;

原來 Property 可以 Inherited 的, 現在知道了, 謝謝你。我用了這方法解決了問題了。 -- 小卜子

引言:原來 Property 可以 Inherited 的, 現在知道了, 謝謝你。我用了這方法解決了問題了。

There is a potential problem with the above method. You are not overriding the property but actually hiding the inherited one. So when you typecast your object (e.g. TClientDataSet) and set its DataSource property, it is actullay using the TCustomDataSet method, not yours.

引言: I think you can override its DataEvent (inherited from TDataSet) and look for deDataSetChange event.

可否舉個例子, 我看不來, 功力不夠。 -- 小卜子

引言:

引言:原來 Property 可以 Inherited 的, 現在知道了, 謝謝你。我用了這方法解決了問題了。

There is a potential problem with the above method. You are not overriding the property but actually hiding the inherited one. So when you typecast your object (e.g. TClientDataSet) and set its DataSource property, it is actullay using the TCustomDataSet method, not yours.

我確未想到這個, 我明白了, 因為無法做到 Late binding 的效果, 那麼請你繼續解說一下 deDataSetChange 的用法好嗎, DB.pas 中牽涉到 deDataSetChange 的程式碼不少, 看不來。 -- 小卜子

I have spent some time on tracing it and sorry to tell you that overring DataEvent is not a solution and all DataSource related functions are privated in TCustomClientDataSet 

引言: But you cannot only build your application as runtime packages then and this functionality will not work inside the IDE at design time. And what do you want to do with this change of DataSource?

謝謝您。但我不想它受到限制而不能作為 runtime packages。 我正建立一個 TMyClientDataSet, 我希望它能第一時間取得其 Master DataSet 的一些資料。那麼最好的時機, 應該就是當設定另一個 TMyClientDataSet 物件給它作為 Master Table 時 (也就是 Assign value 給它的 MasterSource 屬性時), 一併把 Master DataSet 的那些資料交給它了。 有沒有其他辦法呢? -- 小卜子

If you only what this function in TMyClientDataet then using James's method is fine. Otherwise, I think you need to modify TCustomClientDataSet in the VCL.

引言: If you only what this function in TMyClientDataet then using James's method is fine. Otherwise, I think you need to modify TCustomClientDataSet in the VCL.

不是不敢動 VCL, 只是覺得這得配合一些管理工作才行, 否則後人拿起我的 Source code 卻連 Compile 都作不了, 卻沒有很好的 Document 說明時, 他會無計可施呢, 那就很麻煩了。 那權用 James 的方法吧, 謝謝您。 -- 小卜子