Discussion :

[JP.NUAGE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure MaProcedure(Sender: TObject);

et l'équivalent dans le programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tourlourou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1.onTimer := @MaProcedure;

[JP.NUAGE]

En effet, cela fonctionne parfaitement ! Merci tourlourou