R
rwlin
Unregistered / Unconfirmed
GUEST, unregistred user!
//1. 基类窗体FORM1 定义了一个过程calc ，并把该窗体定义为虚函数 ，便于子类继承；// Procedure Calc
Virtual;Procedure TForm1.Calc;Begin ShowMessage('1');End;//2. form1窗体显示的时候调用上面的过程，结果显然是弹出对话框 “1”Procedure TForm1.FormShow(Sender: TObject);Begin Calc;End;//3. 从form1 继承创建子类窗体form2 ，并对calc 窗体标志为overload；//Procedure Calc
Overload;Procedure TForm2.Calc;Begin ShowMessage('2');End;Procedure TForm2.FormShow(Sender: TObject);Begin inherited;End;//那么当显示窗体 form2的时候，为什么弹出的提示还是“1”，而非“2”；？//不会执行重载后的函数?//在form2 中显式 执行calc 当然没问题，提示“2”，但这不便于基类的封装，请指教
Virtual;Procedure TForm1.Calc;Begin ShowMessage('1');End;//2. form1窗体显示的时候调用上面的过程，结果显然是弹出对话框 “1”Procedure TForm1.FormShow(Sender: TObject);Begin Calc;End;//3. 从form1 继承创建子类窗体form2 ，并对calc 窗体标志为overload；//Procedure Calc
Overload;Procedure TForm2.Calc;Begin ShowMessage('2');End;Procedure TForm2.FormShow(Sender: TObject);Begin inherited;End;//那么当显示窗体 form2的时候，为什么弹出的提示还是“1”，而非“2”；？//不会执行重载后的函数?//在form2 中显式 执行calc 当然没问题，提示“2”，但这不便于基类的封装，请指教