Discussion :

[jeng37]

Bonjour,

J´ai une petite question sur la TrackBar.
Est ce que il y a une possibilitée de faire (voire code) dans l´évenement OnClick sans utiliser le TrackBar.Tag

Code :

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

1
2
3
4
5
6
7
8
9
 
......
Var X: Integer;
 
Begin
    X := TTrackBar(Sender).Tag; //<--- Il est déjà utilisé pour autre chose!
   If PremierClick then ShowMessage('Premier click');
   If DeuxiemeClick then ShowMessage('Deuxième Click');
End;

Merci d´avance.

[ThWilliam]

Bonjour,

Et si tu nous disais ce que tu veux réellement obtenir ?
Utilité de distinguer les clics ?

Cordialement
Thierry

[jeng37]

Bonjour,

Et si tu nous disais ce que tu veux réellement obtenir ?
Utilité de distinguer les clics ?

Oui distinguer les clics.

Si je click la premmière fois je veux executer quelque chose, et si je click la deuxième fois je veut executer autre chose.
Et tout cela sans utiliser le TrackBar.tag et aussi sans changer TrackBar.value

[popo]

Tu peux ajouter un entier dans la partie privée de ta classe fiche pour stoker le nombre de fois où tu as cliqué, et augmenter ce chiffre à chaque clic.

Cependant, tu n'exprimes pas ce que tu veux faire de manière claire.

Sur quoi tu cliques ?
Si je me contente de se que tu écrit je suppose que tu cliques sur le TrackBar. Ce n'est pas un comportement habituel à moins de vouloir changer la Value (mais ce n'est pas ce que tu fait).

A quoi correspond ce X ?
Comme ça je dirai que ça correspond au nombre de clics mais ça n'est pas clair.

Comme l'a suggéré Thierry, dis nous quel est le but fonctionnel que tu souhaite obtenir

[jeng37]

Tu peux ajouter un entier dans la partie privée de ta classe fiche pour stoker le nombre de fois où tu as cliqué, et augmenter ce chiffre à chaque clic.

Cependant, tu n'exprimes pas ce que tu veux faire de manière claire.

Sur quoi tu cliques ?
Si je me contente de se que tu écrit je suppose que tu cliques sur le TrackBar. Ce n'est pas un comportement habituel à moins de vouloir changer la Value (mais ce n'est pas ce que tu fait).

A quoi correspond ce X ?
Comme ça je dirai que ça correspond au nombre de clics mais ça n'est pas clair.

Comme l'a suggéré Thierry, dis nous quel est le but fonctionnel que tu souhaite obtenir

Ok,

Non le X me donne la TrackBar sélectionée.
Maintenant si je clic sur la TrackBar (n´importe ou) elle doit envoyer une sequence vers un port pour allumer une lampe.
Si je clic la deuxième fois elle doit envoyer une séquence vers le meme port pour l´éteindre.
Après ca et independent du on ou off, j´utilise la TBar[X].Value pour varier la luminosité.

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
 
Var
  i: Integer;
begin
  TBar[0] := TrackBar1;
  TBar[1] := TrackBar2;
  TBar[2] := TrackBar3;
  TBar[3] := TrackBar4;
  TBar[4] := TrackBar5;
  TBar[5] := TrackBar6;
  TBar[6] := TrackBar7;
  TBar[7] := TrackBar8;
 
  for i := 0 to 7 do
  Begin
    TBar[i].Min := 0;
    TBar[i].Max := 100;
    TBar[i].Tag := i;
    //TBar[i].Value := 0;
    TBar[i].Visible := False;
    DimPortState[i] := False;
  End;

[ThWilliam]

Comme tu utilises plusieurs trackbars, une seule variable ne suffit plus pour distinguer le premier clic du deuxième.

2 solutions :
1) utiliser un tableau boolean de même dimension que TBar :> FirstClick:= array[0..7] of boolean (à initialiser dans ton code, et à modifier dans l'événement OnClick)
2) se servir d'une propriété de TTrackbar non utilisée (puisque le Tag est pris). Je pense particulièrement à la propriété PageSize qui ne sert qu'au déplacement par les touches PageDown, PageUp. Tu pourrais t'en servir comme deuxième Tag.

Cordialement
Thierry