請教各位有何原因造成下列兩個秀出不同答案!!    procedure TTSMutitbfrm.dsMasterDataChange(Sender: TObject; Field: TField); begin showmessage(tdataset(dsMaster.dataset).name); showmessage(tdataset(tdatasource(sender).dataset).name) ... ....         

If Sender<>dsMaster... In fact this event handler can be attached to any OnDataChange event of a datasource...    

引言: 請教各位有何原因造成下列兩個秀出不同答案!! procedure TTSMutitbfrm.dsMasterDataChange(Sender: TObject; Field: TField); begin showmessage(tdataset(dsMaster.dataset).name); showmessage(tdataset(tdatasource(sender).dataset).name) ... .... < face="Verdana, Arial, Helvetica">

引言: If Sender<>dsMaster... In fact this event handler can be attached to any OnDataChange event of a datasource...

引言: 請教各位有何原因造成下列兩個秀出不同答案!! procedure TTSMutitbfrm.dsMasterDataChange(Sender: TObject; Field: TField); begin showmessage(tdataset(dsMaster.dataset).name); showmessage(tdataset(tdatasource(sender).dataset).name) ... .... < face="Verdana, Arial, Helvetica">

可是我確定 dsMaster = Sender 我只是在tdatablock(繼承 panel)重新設定 datasource !! procedure TDataBlock.OnEnter(sender:Tobject); var aObject,aDatasource,vDatasource,bObject:Tobject; i:integer; propInfo:PPropInfo; begin aObject := Tcomponent(sender).Owner; while not (aObject Is TForm) do aObject := Tcomponent(sender).Owner; if Autolink then begin aDatasource:=Tcomponent(aObject).FindComponent('dsMaster'); if aDatasource <> nil then begin if (aDataSource is TDataSource) then begin i:=0; while i <= TWinControl(sender).ControlCount-1 do begin bObject := TWinControl(sender).controls[i]; PropInfo:=GetPropInfo (bObject.ClassInfo,'DataSource'); if propInfo <> nil then begin vDatasource:=GetObjectProp(TWinControlsender).controls[i],propInfo); if vDataSource <> nil then begin TDataSource(aDataSource).DataSet:=TDataSource(vDataSource).dataset; i:=TWinControl(sender).ControlCount 2; end; end; i := i 1; end; end else begin showmessage('dsMaster Type Error!!'); Application.Terminate; end; end; end; end;

Perhaps some settings are set before OnEnter? BTW, maybe some simple testings could help? e.g.    

procedure TTSMutitbfrm.dsMasterDataChange(Sender: TObject; Field: TField);
begin
    if Sender<>dsMaster then
        Showmessage('????');
{...}
end;

引言: Perhaps some settings are set before OnEnter? BTW, maybe some simple testings could help? e.g.

procedure TTSMutitbfrm.dsMasterDataChange(Sender: TObject; Field: TField);
begin
    if Sender<>dsMaster then
        Showmessage('????');
{...}
end;

謝謝william兄果然是不同但我是利用 findComponent 去找到此 from 之 dsMaster 為何到最後會有此結果??

引言: 謝謝william兄果然是不同但我是利用 findComponent 去找到此 from 之 dsMaster 為何到最後會有此結果??

One possible cause is some datasources (other than dsMaster) have assigned this method as their own OnDataChange event handler? Perhaps 'view the form as text' and search for dsMasterDataChange could give you some hints.