گرفتن رویداد ADOConnection برای کامپوننت هایی که در حال کانکت شدن هستند

[یوسف زالی]

سلام.
فرض کنید یک شی ADOTable داریم که داره به یک ADOConnection کانکت می شه.
چطور می شه از داخل ADOConnection فهمید که چیزی داره کانکشنش رو به من ست می کنه؟
تمام لیست های نگهدارنده دیتاست ها در این شی همگی Private هستند :ناراحت:

چه روشی رو پیشنهاد می کنید؟

[یوسف زالی]

از اونجایی که هیش کی منو دوس نداره (!) خودم با آزمون و خطا جُستمش!
هک کامپوننت:


TADOConnection = class(ADODB.TADOConnection)
procedure RegisterClient(Client: TObject; Event: TConnectChangeEvent = nil); override;
procedure UnRegisterClient(Client: TObject); override;
end;