Debug |
答題得分者是:william
|
QOO10
初階會員 發表:59 回覆:89 積分:29 註冊:2002-12-25 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
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"> |
QOO10
初階會員 發表:59 回覆:89 積分:29 註冊:2002-12-25 發送簡訊給我 |
引言: 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; |
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
QOO10
初階會員 發表:59 回覆:89 積分:29 註冊:2002-12-25 發送簡訊給我 |
引言: 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
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
引言: 謝謝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. |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |