Discussion :

[Chupakabra]

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 :

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;

mais pour Chrono.OnTimer:= StopWork; j'ai une erreur. impossible de mettre une procedure
le message d'erreur est types incompatibles 'procedure, untyped pointer or untyped parameter' et 'Boolean' le plus souvent

Que faire?

[Samchi]

Il faut juste que ta procédure soit déclarer comme ça :

Code :

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

    procedure StopWork(Sender: TObject);

[Chupakabra]

effectivement c'etait le Sender qui ne me sert strictement a rien qui etait necessaire.

J'avais l'habitude de le mettre a chaque fonction mais je ne le fais plus systematiquement.

merci beaucoup

sinon est ce que tu aurais un lien sur un tutorial de Assign(INotifyEvent)...
j'ai pas compris exactement le mecanisme de la chose...

+