Klassen selber schreiben

[xineohp]

Delphi-Quellcode:

TMyShape = class(TShape)
public
  RichtungX: Integer; 
  RichtungY: Integer;
  constructor create(Owner: TComponent);
  destructor destroy; override;
  
end;

constructor TMyShape.create(Owner: TComponent);
begin
  inherited create(Owner);
  
// nicht die feine Art das hier so fest in die Klasse zu pressen, aber egal!
  RichtungX := 0; 
  RichtungY := 0;
    
  Height := 65; 
  Left := 100; 
  Top := 20; 
  Width := Height; 
  Brush.Color := clYellow; 
  Pen.Width := 3; 
  Shape := stCircle; 
end;

destructor TMyShape.destroy;
begin
  inherited destroy;
end;


// Aufruf:

procedure TForm1.Aufruf;
var Ball: TMyShape;
begin
  // Erzeugen
  Ball := TMyShape.create;
  
  // Verändern
  Ball.RichtungX := 1;
  Ball.Height := 10;
  Ball.Width := Ball.Height;
  // etc.

  // Freigeben
  Ball.free;
end;

EDIT: zu langsam...