RE: [DUG]: Finding the controls bound to a datasource

[Myles Penlington]

Title: Message

You could also send a CM_DATALINK message to the control and if it returns a non zero value, then you have a TDatalink ... Very similar in instance to this. Myles. -----Original Message----- From: Nello Sestini [mailto:[EMAIL PROTECTED]] Sent: Thursday, August 29, 2002 6:24 PM To: Multiple recipients of list delphi Subject: Re: [DUG]: Finding the controls bound to a datasource i'm not sure this qualifies as "cleaner" - but something like...     type TPeekTDataSource = class(TDataSource);    // shameless hack procedure FindFoo( d:TDataSource; foo : TClass ); var i:integer;     lk:TDataLink; begin         // find all the controls of class foo that have Datasource property         // set to d   for i := 0 to TPeekTDataSource(d).DataLinks.Count-1   do begin     lk := TPeekTDataSource(d).DataLinks[i];     if not (lk is TFieldDataLink) then continue;     if not (TFieldDataLink( lk ).Control is foo) then continue;         // found one     ShowMessage ( TFieldDataLink( lk ).Control.Name );   end; end;       -ns http://www.roserox.co.th ----- Original Message ----- From: Stacey Verner To: Multiple recipients of list delphi Sent: Thursday, 29 August 2002 11:01 Subject: [DUG]: Finding the controls bound to a datasource Is there any way of enumerating the edit controls bound to a particular datasource or dataset?   I can go through the list of controls owned by the form and find those that have a datasource property set to the datasource I care about, but I would like a cleaner method.   Stacey   Stacey Verner             Ph:   +64-9-4154790 Software Developer        Fax:  +64-9-4154791                           DDI:  +64-9-4154797 CJN Technologies Ltd.     Email: [EMAIL PROTECTED] PO Box 302-278, North Harbour, Auckland 1330, New Zealand 12 Piermark Drive, North Harbour, Auckland, New Zealand Visit our website at http://www.cjntech.co.nz/