Voila,
J'ai un TTimer qui avec son TTimer.OnTimer. Mais j'ai un leger probleme
je ne peux pas lui mettre de procedure. voila mon code:
mais pour Chrono.OnTimer:= StopWork; j'ai une erreur. impossible de mettre une procedure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 procedure TCompo.ChronoStart(Sender: TComponent;interval: integer;var Retourcomp: pTimer); var Chrono: TTimer; begin if Retourcomp<>nil then //pour degager l'ancien timer Retourcomp.Free; Chrono:= TTimer.Create(Sender); Chrono.Interval:=interval; Chrono.OnTimer:= StopWork; //StopWork est une procedure de TCompo Chrono.Enabled:=True; Retourcomp:=@Chrono; end;![]()
le message d'erreur est types incompatibles 'procedure, untyped pointer or untyped parameter' et 'Boolean' le plus souvent
Que faire?
Partager