创建一个新类型

Question

在delphi中我想创建一个复制TShape的新类型（机器）。主要是因为想要添加更多的程序和功能。例如，我可以做这样的事情

Machine.type('402') 

它将绘制形状，但具有定义的高度/宽度。 并且喜欢这个

Machine.before('Microclean');

它会知道在哪里放置形状。

所以..两个部分的问题。
1.制作一种新型听起来像我需要的吗？ 2.如何创建一个新的空白类型，因此作为自己的单位并可以添加我的新程序？

感谢 格伦

Answer 1

听起来你需要一个继承自TShape的新类：

TMachine = class(TShape)
public
  procedure MyType(const AType: string);
  procedure Before(const ABfore: string);
end;

然后，您可以为这两个程序提供代码。

请注意，您不能使用类型作为过程名称 - 这是一个保留字。另外，使用'T'

为类名添加前缀是一种Delphi约定（但不是要求）