Brush- und Pen-Farbe wird nicht angenommen

[marabu]

Die Methode TKreis.Anzeigen sieht bei dir so aus:

Delphi-Quellcode:

procedure TKreis.anzeigen;
begin
  form1.Canvas.Ellipse(x,y,x+radius*2,y+radius*2);
end;

Sie sollte so aussehen:

Delphi-Quellcode:

procedure TKreis.anzeigen;
begin
  inherited;
  form1.Canvas.Ellipse(x,y,x+radius*2,y+radius*2);
end;