请教有关inherited

Question

只是知道是用来继承用的命令，哪位知道具体一点的东西？比如用法什么的？

Answer 1

procedure mousemessage(var message: tmessage); message MouseMsg;procedure TForm1.mousemessage(var message: TMessage);
var
  mousept:TPoint;
begin
  inherited;
  ...................
end;如上面一点代码，inherited 的作用就是继承鼠标消息

Answer 2

http://www.csdn.net/Expert/TopicView1.asp?id=966417
请参考其中shaver的解答.

Answer 3

消息过程的名字并不重要
DELPHI只是根据消息过程的消息号进行判断
inherited可以在过程的开始、末尾调用，或不调用
如果想得到某父类消息的处理结果
就在调用inherited后再对Message.Result进行决断如果是非消息过程，并DELPHI是根据过程的名字进行判断的
比如
type
  TA = class
  procedure Test; virtual;
  end;
  TD = class(TA)
  procedure Test; override;
  end;
implementation
procedure TA.Test;
begin
  ShowMessage('TA.Test');
end;
procedure TD.Test;
begin
  inherited; //在此调用父类的同名函数
  ShowMessage('TD.Test');
end;