type TMyControl = class(TControl); //使用如OnMouseDown等方法; //不同名 type TPanel = class(Extctrls.TPanel) public procedure Paint; override; end; //使用Paint方法; //同名