TimerEvent zur Laufzeit festlegen

[dr. love]

Ich möchte zur Laufzeit eine Timerkomponente erzeugen. Das ist über

Delphi-Quellcode:

Timer:=TTImer.Create;
Timer.Interval:=1000;
Timer.Enabled:=true;

usw. kein Problem. Nun möchte ich dem Timer Event "OnTimer" aber etwas zuweisen. D.h. der Timer soll immer nach Ablauf des Intervals einen bestimmten Algorithmus ausführen. Wie mache ich das, der Timer wird ja erst zur Laufzeit erzeugt...?

[DGL-luke]

du musst irgendwo schon den event haben. das sollte eine TNotify-Prozedur sein, also "procedure bla(Sender: TObject);".

Die kannst du dann per "Timer.OnTimer := bla;" zuweisen.

[AlexII]

Sag ma wieso klappt das bei mir nicht?

Delphi-Quellcode:

  private
    { private declarations }
    procedure ShowNowTime(Sender: TObject);
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  myTimer: TTimer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ShowNowTime(Sender: TObject);
begin
  Label1.Caption := DatetimeToStr(Now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  myTimer := TTimer.Create(Self);
  myTimer.Enabled := False;
  myTimer.Interval := 1000;
  myTimer.OnTimer := ShowNowTime; // <- Error: Wrong number of parameters specified for call to "ShowNowTime"


  myTimer.Enabled := True;
end;

[DeddyH]

Delphi-Quellcode:

myTimer.OnTimer := ShowNowTime;

Du willst ja eine Methode zuweisen und keinen Aufruf derselben.

[DeddyH]

Ist das Delphi oder Lazarus?

[AlexII]

Zitat:

Zitat von DeddyH (Beitrag 1280065)

Delphi-Quellcode:

myTimer.OnTimer := ShowNowTime;

Du willst ja eine Methode zuweisen und keinen Aufruf derselben.

Hm.... aber die Zuweisung produziert ja gerade den Fehler.
Und wie rufe ich eine Methode ab?

Ist für Delphi und Lazarus, jetzt konkret aber erstmal für Lazarus. :)

Also ich möchte diese Procudure laufen lassen:

Delphi-Quellcode:

procedure TForm1.ShowNowTime(Sender: TObject);
begin
  Label1.Caption := DatetimeToStr(Now);
end;

[DeddyH]

Unter Delphi sollte es aber so funktionieren, unter Lazarus musst Du entweder den Modus von FPC auf Delphi ändern oder es AFAIK etwas anders formulieren:

Delphi-Quellcode:

myTimer.OnTimer := @ShowNowTime;

[AlexII]

Zitat:

Zitat von DeddyH (Beitrag 1280070)

Unter Delphi sollte es aber so funktionieren, unter Lazarus musst Du entweder den Modus von FPC auf Delphi ändern oder es AFAIK etwas anders formulieren:

Delphi-Quellcode:

myTimer.OnTimer := @ShowNowTime;

Ja das klappt. :thumb:

[himitsu]

Vielleicht solltest du langsam dein Profil ändern? (Lazarus steht auch zur Auswahl) :stupid: (leider kann man nicht Mehreres angeben)

Delphi referenziert/dereferenziert halt eine Typen automatisch, wenn es erkennt daß würde passen.
Lazarus FreePascal ist da "standardmäßig" halt etwas strikter.
Aber auch Delphi sollte es mit @ versehen.

Und warum ist myTimer global?

[DeddyH]

Zitat:

Zitat von himitsu (Beitrag 1280072)

Und warum ist myTimer global?

Schlimmer noch, bei jedem ButtonClick wird eine neue Instanz angelegt.