N netCobra Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-29 #1 比如每一个子窗口中都要对一个ADOQuery进行Insert、Update等一样操作，但是操作对象不同，我想用窗口继承来实现，但是不知道在祖先窗口中应该怎么写？ 请各位富翁指点一二。
T thinknet Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-29 #2 你在祖先窗口里放一个ADOQUERY，并写入相应操作，其继承的窗口不就都有了吗？
B beta Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-29 #3 不需要用到窗体继承吧，这样就可以了啊： procedure TForm1.MyInsert(aADOQuery: TADOQuery); begin aADOQuery.Insert; end; 调用： MyInsert(Form2.ADOQuery);
不需要用到窗体继承吧，这样就可以了啊： procedure TForm1.MyInsert(aADOQuery: TADOQuery); begin aADOQuery.Insert; end; 调用： MyInsert(Form2.ADOQuery);
H HeXiang Lee Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-29 #4 TForm1=Tclass(TForm) public Procedure A;virtual; ... end; TForm2=TClass(TFom1) public procedure A;override; end; 在工具條上操作 if ActiveMdichild is tForm1 then TForm1(ActiveMdichild).A //這里就可以調用了。 不知道你有沒有明白我的意思。
TForm1=Tclass(TForm) public Procedure A;virtual; ... end; TForm2=TClass(TFom1) public procedure A;override; end; 在工具條上操作 if ActiveMdichild is tForm1 then TForm1(ActiveMdichild).A //這里就可以調用了。 不知道你有沒有明白我的意思。
N netCobra Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-29 #5 谢谢各位。 To thinknet：我也想过这样子做，但是问题在于这个AdoQuery不会放在这个Form里面（既不能在祖先窗口里面放，也不能在子窗口里面放）。 所以我才犯难的。 To HeXiang Lee：我看明白了，你的意思是用多态是吗？这倒也是一个办法，我回去先试试。
谢谢各位。 To thinknet：我也想过这样子做，但是问题在于这个AdoQuery不会放在这个Form里面（既不能在祖先窗口里面放，也不能在子窗口里面放）。 所以我才犯难的。 To HeXiang Lee：我看明白了，你的意思是用多态是吗？这倒也是一个办法，我回去先试试。
C catfox Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-02 #6 父窗体放入ADOQUERY, 放入AcitonList, 通过Action来操作ADOQUERY 继承的子窗体设计时对各自的ADOQUERY赋值
N netCobra Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-06 #7 To catfox：看不明白你是什么意思，能说具体一点吗？
