Klassen selber schreiben

[xineohp]

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;