var
i,j :integer;
begin
for i := MDIChildCount-1 downto 0 do
begin
if MDIChildren[i] = ActiveMDIChild then
for j := MDIChildren[i].ComponentCount-1 downto 0 do
if (MDIChildren[i].Components[j] is TDBGrid) then
DBNavigator1.DataSource := (MDIChildren[i].Components[j] as
TDBGrid).DataSource;
end;
end;
ini bisa kamu jalankan pada saat form utama (MDIForm) dicreate, tujuannya adalah untuk
mengetahui mdichild mana yang aktif pada saat itu, dan datasource pada dbnavigator
tinggal kita set ke window child yang aktif.
tapi kalo kalo mdichild baru kamu create pada saat dipanggil oleh mdi melalui menu
utam kamu, kamu khan bisa mengarahkan dbnavigator punya datasource ke datasource yang
ada pada mdichild tsb.
trus jika di mdiform sengaja dibuka beberapa mdichild, kamu tinggal set datasource
dbnavigator pada mdiform kamu sama dengan datasource pada mdichild kamu pada event
formactivate mdichild kamu.
mudah-mudahan ini bisa membantu
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Upgrade to 128-Bit SSL Security!
http://us.click.yahoo.com/p7cEmB/s7qGAA/yigFAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
