1

Delphi では、TShape をコピーする新しいタイプ (Machine) を作成したいと考えています。主に、より多くの手順と関数を追加したいためです。たとえば、私はこのようなことをすることができます

Machine.type('402')

形状を描画しますが、高さ/幅が定義されています。そしてこのように

Machine.before('Microclean');

形状をどこに配置するかがわかります。

だから..2つの部分からなる質問。
1. 私が必要としている新しいタイプの音を作ることはできますか? 2. 新しいブランク タイプを作成する方法は?

ありがとうグレン

4

1 に答える 1

4

TShape から継承する新しいクラスが必要なようです。

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

その後、2 つのプロシージャのコードを提供できます。

プロシージャ名に type を使用できないことに注意してください。これは予約語です。また、クラス名の前に「T」を付けることは、Delphi の慣例です（必須ではありません）。

于 2013-01-18T09:20:03.193 に答える