Hallo Allerseits,
ich habe eine Frage zu der Timer-Komponente.
Mein Ziel ist es ohne grafische Programmierung, einen Timer vom Typ TTimer in einer eigenen Klasse zu verwenden.
Grundsätzlich geschafft habe ich dies schon in einem "normalen" Programm (siehe Beispielquellcode):
Delphi-Quellcode:
unit Timer_ohne_Grafik;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TForm1 =
class(TForm)
Timer1: TTimer;
procedure Abgelaufen(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Abgelaufen(Sender: TObject);
begin
ShowMessage('
Test');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1:=TTimer.Create(self);
Timer1.Enabled:=true;
Timer1.
name:='
Timer';
Timer1.Interval:=5000;
Timer1.OnTimer:=Abgelaufen;
end;
end.
Ich möchte den Timer aber in einer eignen Klasse verwenden.
Wenn also eine Instanz der eigenen Klasse erzeugt wird, soll automatisch ein Timer mit erzeugt werden, der dann in dieser Instanz läuft.
Quelltext des Konstruktors:
Delphi-Quellcode:
constructor TEigeneKlasse.Create(iModus: integer);
var
i, j: integer;
begin
inherited Create; //hierdurch wird der ursprüngliche Konstruktor aufgerufen
FiModus := iModus;
Timer1:=TTimer.Create(self);
Timer1.Enabled:=true;
Timer1.name:='Timer';
Timer1.Interval:=5000;
Timer1.OnTimer:=Abgelaufen;
end;
Der Compiler meldet hier den Fehler: UProgramm.pas(51): Inkompatible Typen: 'TComponent' und 'TEigeneKlasse' in der Zeile
Timer1:=TTimer.Create(self);
.
Was mache ich falsch? Was muss ich anstatt "self" in die Klammer schreiben?