声明方法的原则
声明方法时，考虑是否使其虚拟化，以支持不同类型响应相同调用。
组件中的方法声明与类方法类似。声明新方法包括：
- 在对象类型声明中添加声明
- 在实现部分实现方法
示例代码：
type TSampleComponent = class(TControl)
protected procedure MakeBigger; // 声明受保护静态方法
public function CalculateArea: Integer; virtual; // 声明公开虚拟方法
end;
...implementation...
procedure TSampleComponent.MakeBigger; // 实现第一个方法
begin
Height := Height + 5;
Width := Width + 5;
end;
function TSampleComponent.CalculateArea: Integer; // 实现第二个方法
begin
Result := Width * Height;
end;
文件大小：1.19MB
评论区