TTimer.OnTimer ersetzen

[mkinzler]

Zitat:

Sagt mal, wenn man ne Unit ohne Form hat: TTimer.Create erwartet als Parameter TComponent. Was gebe ich ihm da an? Kann ich das einfach durch "NIL" ersetzten?

Grundsätzlich ja. Aber ich würde Komponenten nicht unabhängig von einer Form einsetzen.

[Muetze1]

Natürlich muss sie Public oder Published sein, schliesslich woll ihr sie doch von ausserhalb der Klasse zuweisen - und dort sind nunmal nur öffentliche und veröffentlichte Methoden sichtbar. Ansonsten könnt ihr die Methode auch Private oder Protected deklarieren, dann müsst ihr sie nur halt innerhalb der Klasse zuweisen.

Nehmt doch eine statische Methode, dann könnt ihr euch das Instanz erstellen auch sparen...

Delphi-Quellcode:

Type
  TStaticHelper = Class
  Public
    Class Procedure  MyOnTimer(Sender: TObject);
  End;

...

Procedure TStaticHelper.MyOnTimer(Sender: TObject);
Begin
  ShowMessage('Schon da');
End;

Begin
  Timer.OnTimer := TStaticHelper.MyOnTimer;
End.

Und vor allem spart ihr euch dies rumgematsche und gefake mit den "ich mache mir eine Procedure und tarne sie als Methode".

/EDIT: *Argh* Da nölt man rum und macht es selber nicht mal richtig...

[Hawkeye219]

Thomas, du hast das class vergessen:

Delphi-Quellcode:

Type
  TStaticHelper = Class
  Public
    class Procedure  MyOnTimer(Sender: TObject);  // <-- hier class
  End;

...

class Procedure TStaticHelper.MyOnTimer(Sender: TObject);  // <-- hier class
Begin
  ShowMessage('Schon da');
End;

Begin
  Timer.OnTimer := TStaticHelper.MyOnTimer;
End.

Gruß Hawkeye