TTimer will nicht wie er soll

[Moombas]

Nein Interval steht auf 1000, also 1 Sekunde. Habe das auch sicherheitshalber per showmessage einmal anzeigen lassen, der bleibt bei 1000.

[Schokohase]

Wenn du uns mitgeteilt hättest, dass du den DirectoryWatcher verwendest, dann hätten wir gewusst, dass der Aufruf von TTools.OnNotify nicht im MainThread-Kontext erfolgt und dann hätten (wenigstens bei mir) alle Alarmglocken geläutet.

Und ja, wenn du den Timer synchronisiert im MainThread-Kontext einschaltest, dann wird auch der Timer-Event ausgelöst.

[Moombas]

Ich musste zu https://forum.lazarus.freepascal.org...?topic=37415.0 wechseln wegen Lazarus.

Das mit der Synchronisierung ist für mich neu, wie müsste ich das für

Timer3.Enabled := True;

umsetzen?

[Schokohase]

So

Delphi-Quellcode:

procedure TTool.OnNotifySynchronized();
begin
  Timer3.Enabled := true;
end;

procedure TTools.OnNotify(const FilePath: WideString; const Action: TDirectoryEventType);
...
  TThread.Synchronize(nil,@OnNotifySynchronized);
...

[Moombas]

Bekomme im Compiler dann folgende Fehlermeldung: Error: Variable identifier expected

[Schokohase]

Zitat von Moombas:

Bekomme im Compiler dann folgende Fehlermeldung: Error: Variable identifier expected

Ich gehe halt davon aus, dass bei FreePascal die units auf {$mode objfpc} eingestellt sind. Ansonsten musst du mir das mitteilen oder eben selber adaptieren.

[Moombas]

ich habe {$MODE Delphi} eingestellt.