moin,
warum hast du in deiner Klasse ein Feld vom Typ deineer Klasse? Ich dachte du willst lediglich TShape erweitern, und zwar um eine Richtung eine Geschwindigkeit, etc. und NICHT um ein Shape im Shape?!
Delphi-Quellcode:
TMyShapes = class(TShape)
[b]Kreis: TMyShapes;[/b] // weglassen!
public
RichtingX: Integer;
RichtungY: Integer;
constructor Create(Owner: TComponent);
procedure Erstellen;
end;
Delphi-Quellcode:
procedure TMyShapes.Erstellen;
begin
// [b]Kreis := Kreis.Create(Form1);[/b]
with [b]self[/b] do
begin
Parent := Form1;
Height := 65;
Left := 100;
Top := 20;
Width := Height;
Brush.Color := clYellow;
Pen.Width := 3;
Shape := stCircle;
end;
end;