Discussion :

[Ludo_360]

Bonjour ,

je rencontre quelques soucis alors que j'essai d'incorporer un timer dans un composant. Je me demandais donc s'il y avait quelques renseignements à savoir avant de continuer ce que j'essai d'entreprendre.

Ce composant n'a pas de form: je ne fais que déclarer le timer, il n'y a pas de composant. Je pense que le problème vient de là...

aide svp...

ludo

[aityahia]

comme ça :

Code :

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

1
2
3
4
5
6
7
8
Var MonTimer : TTimer;
 begin
   MonTimer := TTimer.Create(Self);
   MonTimer.Interval := 1000;
   MonTimer.OnTimer := (une priocedure TNotifyEvent)
   MonTimer.Enabled := True;
 
 end;

[LadyWasky]

Salut,

regardes bien ce que dit l'aide Delphi à propos du TTimer, c'est très important :

Description

TTimer est utilisépour simplifier l'appel des fonctions SetTimer et KillTimer de l'API Windows et le traitement des messages WM_TIMER.Utilisez un composant timer pour chaque timer de l'application.

L'exécution du timer se produit au travers de son événement OnTimer.TTimer possède une propriétéInterval qui détermine la périodicitéde l'événement OnTimer du timer.Interval correspond au paramètre de la fonction SetTimer de l'API Windows.

Attention : La limitation du nombre total de timers système actifs simultanément dépend du système

celà devrait t'amener à te poser la question de savoir si c'est le meilleur choix à faire pour ton implémentation (est ce que mon composant est censé se retrouver une seule fois sur ma fiche ou plusieurs fois ? Si la réponse est une seule fois, pas de problêmes, tu peux l'utiliser, mais ça se trouve, implémenter directement les fonctions de l'API Windows serait peut être pas plus difficile°

A la rigueur tu as peut être à ta disposition d'autres alternatives au TTimer. je pense par exemple à l'utilisation de la fonction API GetTickCount.

Mais sinonb, ce serais bien, en plus de décrire un petit peu plus quel genre de difficulté tu rencontre pour intégrer le TTimer. Est-ce que celà a voir avec comment le déclarer dans la classe de ton composant ?

Si ce n'est que ça, il faut que tu oublie le coté visuel du composant (considère le plutot comme une classe normale au même titre qu'un TStringList :

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
18
19
20
21
22
23
24
Type
TTonComposant=class(TJeNeSaisQuoi)
private
  FTonTimer:TTimer; //on le déclare ici
public
  constructor create;
  destructor destroy; override;
end;
 
...
constructor TTonComposant.Create;
begin
  inherited Create;
  FTonTimer:=TTimer.Create; //le timer est créé au moment où Ton composant est créé
  //initialisation du TTimer
  FTonTimer.enabled:=false;
  FTonTimer.interval:=5000;
end;
 
destructor TTonComposant.Destroy;
begin 
   FTonTimer.Free; //le timer est détruit au moment où Ton composant est créé
   inherited Destroy;
end;

Après tu as peut être besoin que ton utilisateur puisse modifier les propriétés de ton timer, pour ce faire tu crées des propriétés qui vont servir de passerelles avec ce dernier.

Etape 1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Type
TTonComposant=class(TJeNeSaisQuoi)
private
  FTonTimer:TTimer; //on le déclare ici
public
  constructor create;
  destructor destroy; override;
published 
  property Enabled:boolean read GetEnabled write SetEnabled;
  property Interval:Integer read GetInterval write SetInterval;
end;

Donc ici, on propose de creer des propriétés, qui, lorsqu'elle seront modifiées, utiliseront une fonction pour renvoyer une valeur, et une procedure pour mettre à jour la valeur.

Un petit coup de "[Ctrl]+[Shift]+C" devant les propriétés et delphi te sort ceci :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
TTonComposant=class(TJeNeSaisQuoi)
private
  FTonTimer:TTimer;
    function GetEnabled: boolean;
    function GetInterval: Integer;
    procedure SetEnabled(const Value: boolean);
    procedure SetInterval(const Value: Integer); //on le déclare ici
public
  constructor create;
  destructor destroy; override;
published
  property Enabled:boolean read GetEnabled write SetEnabled;
  property Interval:Integer read GetInterval write SetInterval;
end;
...
function TTonComposant.GetEnabled: boolean;
begin
 
end;
 
function TTonComposant.GetInterval: Integer;
begin
 
end;
 
procedure TTonComposant.SetEnabled(const Value: boolean);
begin
 
end;
 
procedure TTonComposant.SetInterval(const Value: Integer);
begin
 
end;

Il n'y a plus qu'à remplir les de 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
18
19
20
21
22
23
24
25
function TTonComposant.GetEnabled: boolean;
begin
  if Assigned(FTonTimer) then //si ton timer est crée ou n'a pas encore été
                                        //détruit alors on peut y accéder
                                        //sinon, "access violation" avec le code qui suit
  result:=FTonTimer.Enabled;
end;
 
function TTonComposant.GetInterval: Integer;
begin
   if Assigned(FTonTimer) then //même remarque qu'avant
  result:=FTonTimer.Interval;
end;
 
procedure TTonComposant.SetEnabled(const Value: boolean);
begin
   if Assigned(FTonTimer) then //même remarque qu'avant
   FTonTimer.enabled:=value;
end;
 
procedure TTonComposant.SetInterval(const Value: Integer);
begin
  if Assigned(FTonTimer) then //même remarque qu'avant
   FTonTimer.interval:=value;
end;

Et voilà

[LadyWasky]

Et j'ai oublié, si tu veux implémenter dans ton composant le "OnTimer", il faut que tu crées une propriété "passerelle", de type TNotifyEvent :

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
18
19
20
21
22
23
 
private 
   ...
   function GetOnTimer: TNotifyEvent;
   procedure SetOnTimer(const Value: TNotifyEvent);
   ...
published
  property OnTimer:TNotifyEvent read GetOnTimer write SetOnTimer;
end;
 
 
unction TTonComposant.GetOnTimer: TNotifyEvent;
begin
   result:=nil;
   if Assigned(FTonTimer) then //toujours la même précaution
   result:=FTonTimer.OnTimer;
end;
 
procedure TTonComposant.SetOnTimer(const Value: TNotifyEvent);
begin
    if Assigned(FTonTimer) then //toujours la même précaution
    FTonTimer.OnTimer:=Value;
end;

[Ludo_360]

Merci pour ces indications!

Je créé mon composant corectement à priori, mais mon problème venait du fait que j'assimilais à l'évènement "OnTimer" une procedure normale...

merci je vaisd voir ça

ludo

[LadyWasky]

Merci pour ces indications!

Je créé mon composant corectement à priori, mais mon problème venait du fait que j'assimilais à l'évènement "OnTimer" une procedure normale...

merci je vaisd voir ça

ludo

Bah en fait, il faut que tu arrive à t'imaginer que les procédures et les fonctions peuvent être stockées dans des variables (d'accord, un peut spéciales, mais ça se gère pratiquement pareil). On appelle celà des variables procédurales.
Et effectivement, selon qu'il s'agisse d'une procédure "normale" comme tu dis, ou d'une méthode (un procédure qui fait partie d'une classe), ça ne se déclare pas de la même façon.

Pour plus d'infos, je t'engage à consulter la FAQ, m^me s'y tout ne te concerne pas elle te permettra tout du moins d'y voir plus clair (enfin j'espère ):
Un tableau de procédures ? Comment et pourquoi ?

[Ludo_360]

ok je vais y faire un tour,

merci!

au fait ça marche très bien...

ludo

[Clorish]

Au passage, je pousse jusqu'a te conseiller d'aller un peu plus loin jusqu'aux chapitres de creation d'evenements ... car ca t'apprendra un peu plus le fonctionneement interne des evenements

N'hesite pas, si tu possede une version suffisante, a jetter un coup d'oeil dans les sources Delphi .... on y apprends beaucoup !