有关消息的小问题,望指点一下.
在一个自己写的消息事件里:
procedure TClient.mousemessage(var message: Tmessage);
begin
inherited;
.........
end;
其中 inherited; 句是什么意思.希望得到比较深入的回答.
[解决办法]
inherited就是继承父类, 比如在创建一个线程时,加上inherited就是指创建的线程继承了原本定义的线程的各种属性和方法。...inherited继承DELPHI封装好的类的属性(就是继承它的父类的属性)
[解决办法]
执行父类中的同名过程