delphi - 创建新类型

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;

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

请注意，您不能使用 type 作为过程名称 - 这是一个保留字。此外，使用“T”作为类名前缀也是 Delphi 约定（但不是要求）