Procedure pour OnTime

:salut: Bonjour à tous

Il y a dans Delphi une possibilité intéressante : mettre un nom de procédure dans l'évènement onTimer d'un Timer à l'exécution, ce qui évite d'avoir x composants Timer. Or si je codifie en Lazarus

Code:

---

1 2	Timer1.Enabled := true; Timer1.onTimer := MaPorcedure;

---

j'ai une erreur de compilation. pourtant, j'ai bien ceci pour MaProcedure

Code:

---

procedure MaProcedure(Sender: TObject);

---

et l'équivalent dans le programme :

Code:

---

1 2 3 4

procedure TMaForme.Maprocedure(Sender: TObject); begin // mon code end;

---

Bien sûr, si je mets dans le composant Timer ce nom dans l'évènement OnTimer, cela fonctionne, mais j'aimerais éviter de coller 15 composants Timer s'il existe une solution analogue à celle de Delphi

Merci pour toute suggestion

Lazarus ne gère pas aussi simplement/implicitement les affectations de fonctions que Delphi : il faut passer l'adresse de la procédure ; essaye :

Code:

---

Timer1.onTimer := @MaProcedure;

---

En effet, cela fonctionne parfaitement ! Merci tourlourou :ccool: