Eigene Klasse mit Timer und IMage

[Chaosente]

jah da hab ich jetzt aber nen kleines problem, wahrscheinlich recht einfach, aber ich kann mit der warnung ncihts anfangen die er mir gibt:

Zitat:

[Warnung] Spielfeld.pas(13): W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TImage'

Hier nochmal mein code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Spielfeld;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Spielfeld: TSpielfeld;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Spielfeld:=TSpielfeld.Create;
Spielfeld.Width:=300;
spielfeld.Height:=300;
spielfeld.Left:=10;
spielfeld.Top:=10;
spielfeld.Canvas.Ellipse(0,0,20,20);
end;

end.

und der code der unit spielfeld:

Delphi-Quellcode:

unit Spielfeld;

interface

uses ExtCtrls;

type
  TSpielfeld = class(TImage)
  procedure SpielfeldRender(Sender: TObject);
  private
    FTimer: TTimer;
  public
    constructor Create;
    destructor Destroy; override;
  end;

implementation

constructor TSpielfeld.Create;
begin
inherited;
  FTimer := TTimer.Create(nil);
  FTimer.Interval := 500; // alle 500 Millisekunden was tun
  FTimer.OnTimer := SpielfeldRender;
end;

destructor TSpielfeld.Destroy;
begin
  FTimer.Free;
  inherited;
end;

procedure TSpielfeld.SpielfeldRender(Sender: TObject);
begin
  // Hier deinen Code ausführen.
end;

end.