关于inherited的问题 不知道inherited到底用在什么地方,如何使用,请给解释解释呗,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 嘿嘿那干脆就别管它等有一天你觉得啊,这个怎么搞?别人告诉你:用inherited,不就OK了简单来说,就是调用父类的方法inherited xxxx;调用父类的xxxxfunction xxx;begin inherited;end;调用父类的xxx 保留字inherited在实现多种行为中扮演特殊的角色。它可以出现在方法定义中,在其后面可以有或没有标识符。如果inherited之后跟随一个成名名称,那么除了表示在封装了方法的类的直接祖先中搜寻成员之外,还可以表示标准的方法调用或者对属性或域的引用。例如,当如下语句inherited Create(...);出现在方法的定义声明中时,表示对继承得到的Create方法的调用。当没有标识符跟随在inherited之后时,它表示对当前定义声明封装的方法在所属类的直接祖先中同名方法的调用。这时,保留字inherited不必显示地接受任何参数,但实际上传递到继承的方法中的参数与当前封装的方法调用的参数是相同的(如果有参数)。例如,如下语句inherited;经常出现在构造器的实现中。它调用继承得到的构造器并且接受的参数(如果有)与传递到后裔类中构造器的参数相同。 procedure Tform1.WMSYSCOMMAND(var Msg: TMessage);begin if Msg.WParam = SC_MINIMIZE then showmessage('你点了最小化按钮'); else Inherited;end;procedure Tform1.WMPAINT(var Msg: TMessage);begin Inherited; Memo1.Lines.Add('WM_PAINT!'); end; 1;楼主写个TForm12:然后在写个tForm2(继承自TFor1);3:然后在Form2里放个Button1,在button1的onclick事件里看有什么东西其实就是的是否执行夫类的代码,Inherited;在前就是现执行夫类的,在后就是最后执行。去了就不执行了。 procedure IniTialize;override;procedure TComGoodTypeAndOrg.IniTialize;begin inherited; try MyDbPool_:=CoDbPool.Create; SetComplete; except SetAbort; end;end; 多看点书吧。 这种问题是不是有点像问:Delphi怎么用? 如何让CXGRID中某列值依条件设定可写或不可写 散分了,祝大家圣诞快乐! delphi2009如何安装SMLPack 如何精确的计算时间? 在oracle中怎么附加数据库 webbrowser打印问题 在ExpressQuantumGrid4.2中如何设置能在底部显示统计数据之类的东东,如合计、平均值等,同时如何汉化出现的英文。 请问这样的方式应该用何种方式实现???(详情见内) 一个SQL SERVER存储过程序的问题 Delphi 程序员的网上家园 急啊急!贴子挂了一星期没人回答,不能提前了,请高手进来看看。 我想在delphi中调用系统启动时的声音,怎么调啊?请帮忙!
inherited xxxx;调用父类的xxxx
function xxx;
begin
inherited;
end;
调用父类的xxx
begin
if Msg.WParam = SC_MINIMIZE then
showmessage('你点了最小化按钮');
else
Inherited;
end;
procedure Tform1.WMPAINT(var Msg: TMessage);
begin
Inherited;
Memo1.Lines.Add('WM_PAINT!');
end;
2:然后在写个tForm2(继承自TFor1);
3:然后在Form2里放个Button1,在button1的onclick事件里看有什么东西
其实就是的是否执行夫类的代码,Inherited;在前就是现执行夫类的,在后就是最后执行。去了就不执行了。
begin
inherited;
try
MyDbPool_:=CoDbPool.Create;
SetComplete;
except
SetAbort;
end;
end;
这种问题是不是有点像问:Delphi怎么用?