Ich glaube, dass leichteste wäre, das ganze einfach mit Quellcode zu erklären und deshalb werd ich das jetzt auch so machen :

markieren

Delphi-Quellcode:

TKuken = class(TImageSprite)
  Public
    Constructor Create(aparent:Tsprite);override;
    Procedure right;
  end;

Es geht um Procedure right, welche später so aussieht:

markieren

Delphi-Quellcode:

procedure TKuken.right;
begin
Timer1.enabled:=true;
end;

Wenn ich das nun starten will, dann kommt die Fehlermeldung und die Zeile wird rot makiert :
[Fehler] Unit1.pas(170): Undefinierter Bezeichner: 'Timer1'

Habe auch schon probiert, einfach Procedure right(Sender: TObject) bei TKuken zu schreiben, hat aber trotzdem nicht geklappt.

Wie kann ich also den Timer in eine selbsgeschriebene procedur einbinden??

PS: Habe es auch schon das versucht:

markieren

Delphi-Quellcode:

procedure TKuken.right;
var Timer1:TTimer;
begin
Timer1.enabled:=true;
end;

Aber dann kommt folgende Nachricht:
[Warnung] Unit1.pas(172): Variable 'Timer1' wurde wahrscheinlich nicht Initialisiert

du hast ja timer1 auch nicht definiert

markieren

Delphi-Quellcode:

  TKuken = class(TImageSprite)
  private
    Timer1: TTimer;
  Public
    Constructor Create(aparent:Tsprite);override;
    Procedure right;
  end;

und im constructor dann noch

markieren

Delphi-Quellcode:

Timer1 := TTimer.Create;
[...]

und im Destructor dann
Timer1.Free;

Probier's mal mit Form1.timer1.enabled aus.
Aber: Sowas ist nicht gerade schön. Um nicht zu sagen ziemlich hässlich. Falls du jemals wieder diese Procedure benutzen willst (oder jemandem geben willst) wirst du sie (fast) nie benutzen können, da du dann immer eine Komponente mit diesem Namen auf einem Formular mit diesem Namen bräuchtest. Also übergib der Procedure lieber einen Timer, dessen Namen du dann immer wenn du diese Procedure nutzt, ändern kannst, also sowas:

markieren

Delphi-Quellcode:

TKuken = class(TImageSprite)
  Public
    Constructor Create(aparent:Tsprite);override;
    Procedure right(timer: Ttimer);
  end;

// ungeteste, sollte aber funzen

Danke, die Antworten sind ja ziemlich schnell gekommen.
Hab zurest herumprobiert beim ertsen Vorschlag herumprobiert, aber irgendwie hats nie so richtig geklappt. Zum Starten ist es meistens, wenn ich was verändert habe, gegangen, aber irgendeine Fehlermeldung kam immer.

Dann hab ich einfach die 2 Lösung mit Form1.Timer1.... versucht und es ging. An das habe ich gar nicht gedacht, aber wie heisst es so schon. Die einfachste Lösung ist immer die Beste!!

Das mit Form1.Timer1. ist sicher nicht die Beste Lösung aus den o.g. Gründen. Übergib lieber den gewünschten Timer als Parameter und bearbeite ihn dann.

zusammenfalten · markieren

Delphi-Quellcode:

TKuken = class(TImageSprite)
  Public
    Constructor Create(aparent:Tsprite); override;
    Procedure right(timer: Ttimer);
  end;
.
.
procedure TKuken.rigth(timer: Ttimer);
begin
timer.enabled:=true;
end;
.
.
//aufrufen:
VarTKuken.right(Form1.Timer1);