Execution d'une procedure avec TNotifyEvent;
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:
Code:
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; |
mais pour Chrono.OnTimer:= StopWork; j'ai une erreur. impossible de mettre une procedure :sm:
le message d'erreur est types incompatibles 'procedure, untyped pointer or untyped parameter' et 'Boolean' le plus souvent
Que faire?
