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

[Andnotor]

Le plus propre serait de dériver un nouveau composant et d'y ajouter les propriétés manquantes (un TrackBar n'a de toute façon pas d'événement OnClick) mais on pourrait aussi jouer avec les propriétés "Windows".
Par exemple pour un TButton :

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
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TButton(Sender) do
  begin
    //GetProp sur une propriété qui n'existe pas renvoie toujours 0
    if GetProp(Handle, 'ON') = 1
    then SetProp(Handle, 'ON', 0)
    else SetProp(Handle, 'ON', 1);
 
    //Pour contrôle
    Caption := IntToStr(GetProp(Handle, 'ON'));
  end;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveProp(Button1.Handle, 'ON');
end;

On peut en ajouter à volonté

L'utilisation de GetProp et SetProp est un peu pervers ici mais est très pratique dans d'autres circonstances

[SergioMaster]

(un TrackBar n'a de toute façon pas d'événement OnClick)

sauf s'il s'agit d'un TTrackbar de FMX

[Andnotor]

sauf s'il s'agit d'un TTrackbar de FMX

Dans ces conditions, je n'ai rien dit

[Basile le disciple]

bonjour à tous,

je vois 2 solutions :

(j'ai fait l'essai sur des TButton et non sur des TTrackbar, mais le résultat revient au même)

1)

tu prends le name de ton bouton et tu lui enlève Button comme ça tu as le numéro du bouton sans utiliser son tag.

Code :

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

1
2
 
  ShowMessage(copy(TButton(sender).Name,7,length(TButton(sender).Name)));  //7 -> longueur de 'button'

2)

il n'est pas impossible de contenir 2 informations dans un nombre, par exemple, dans 1.3, on peut avoir 1 et 3 comme information. La propriété Tag du TTrackBar est un entier mais rien n'empeche de prendre le nombre 13 et de l'utiliser en le divisant par 10 pour réavoir 1.3...

je verrais quelque chose comme ça (exemple sur des TButton) :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  TButton(sender).Tag:=TButton(sender).Tag+1000;
  showMessage(
 
  'Tag du bouton ='
  +inttostr( TButton(sender).Tag - floor(TButton(sender).Tag/1000) *1000)
  + ' nombre de clic ='
  + inttostr( floor(TButton(sender).Tag/1000) )
 
  );
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Tag:=1;
  Button2.Tag:=2;
end;
 
end.

évidemment cela induit que le nombre de bouton soit inférieur à 1000...

Et sinon, si tu peux accéder au onclick du TTrackbar, c'est que tu as créé une nouvelle classe non? Si oui, pourquoi ne pas créer une nouvelle propriété?

[Caribensila]

En fait, on peut stocker à peu près n'importe quoi dans le Tag d'un compos.

Un Tag est un Integer, qui a la même taille qu'un pointeur.

On peut donc stocker un Pointer dans un Tag.

Et un Pointer pointe sur à peu près n'importe quoi...

[jeng37]

Bonjour,

Merci pour toutes ces solution, je me suis décidé d´utiliser la solution de Basile le disciple, je la trouve géniale et simple!

Après avoir testé, j´ai un autre problème qui apparait.
La procedure se trouve dans l´évenement OnClic, et maintenant je n´arrive plus a changer la TrackBar.Value car le OnClic est exécuté a chaque clic.

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
 
procedure TMiniDOForm.TrackBarClick(Sender: TObject);
var
  X,A: Integer;
begin
    TTrackBar(sender).Tag:=TTrackBar(sender).Tag+1000;
 
    X := TTrackBar(Sender).Tag - floor(TTrackBar(sender).Tag/1000) *1000;
    A := floor(TTrackBar(sender).Tag/1000);
 
    ShowMessage('TrackBar Is: ' +inttostr(X) + 'Click: ' + IntToStr(A));
  case A of // Status überprüfen
 
        1: // Erster Status
             begin
              Port[X] := #$FF;
              DomoSend(Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7]);
             end;
        2:
            Begin
              Port[X] := #$00;
              DomoSend(Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7]);
              TTrackBar(sender).Tag:=TB; //TB = variable globale qui tiens la TrackBar sélectionée.
              A := 0;
            end;
  end;
 
end;

Voici la procedure dans l´évenement OnChange.

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
 
procedure TMiniDOForm.TrackBarCk(Sender: TObject);
var
  X: Integer;
 
Begin
 
    X := TTrackBar(Sender).Tag;
    TBar[X].OnClick := TBarOldState;
    TBar[X].OnClick := nil;
 
    Port[X] := #$FB ;
    Memo1.Lines.Insert(0,'Port Dim Wait:'+IntToStr(X)+' FB');
    DomoSend(Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7]);
 
 
 if round(TBar[X].Value) > 0 Then
       Begin
        TestArray[Y, 0, X].c := Chr(round(TBar[X].Value));
        Port[X] := Chr(round(TBar[X].Value));
        Memo1.Lines.Insert(0,'Value: '+ IntToStr(round(TBar[X].Value)));
       End
       else
       Begin
        Port[X] := #$00;
        TBar[X].OnClick := TBarOldState;
       End;
        DomoSend(Port[0], Port[1], Port[2], Port[3], Port[4], Port[5], Port[6], Port[7]);
 
   if CheckBox1.IsChecked then // debug
      Memo1.Lines.Insert(0,'Value: '+ IntToStr(round(TBar[X].Value)));
 
 
end;

[SergioMaster]

Bonjour,

Après avoir testé, j´ai un autre problème qui apparait.
La procédure se trouve dans l´évenement OnClic, et maintenant je n´arrive plus a changer la TrackBar.Value car le OnClic est exécuté a chaque clic.

C'était bien ce qu'il y avait à craindre. Maintenant s'il s'agit de FMX (à confirmer) il y a peut être une solution (simple?) : Mettre le TTrackBar dans un Bouton

j'ai rapidement fait le test : un bouton, le trackbar dans le bouton
propriétés du bouton : StayPressed:=True, Text:='On'
propriétés du trackbar : hittest:=False; Align=top, margins.top=4, margins.left=2,margins.right=2

Code :

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

1
2
3
4
5
procedure TForm6.Button1Click(Sender: TObject);
begin
button1.IsPressed:=not button1.IsPressed;
if Button1.isPressed then button1.Text:='Off' else button1.Text:='On';
end;

même si la présentation n'est pas terrible, si je n'ai pas très bien saisi comment faire le ON (un click)/OFF (dblClick) j'ai le meilleur des deux !

en parlant de présentation : c'est moi ou ? je n'ai pas réussi à changer la hauteur du TTrackBar avec XE10 reste à 19

[jeng37]

Bonjour,

C'était bien ce qu'il y avait à craindre. Maintenant s'il s'agit de FMX (à confirmer) il y a peut être une solution (simple?) : Mettre le TTrackBar dans un Bouton

j'ai rapidement fait le test : un bouton, le trackbar dans le bouton
propriétés du bouton : StayPressed:=True, Text:='On'
propriétés du trackbar : hittest:=False; Align=top, margins.top=4, margins.left=2,margins.right=2

Merci pour cette réponse rapide
Je vais tester cela, et oui je confirme il s´agit de FMX.

[jeng37]

Bonjour,

en parlant de présentation : c'est moi ou ? je n'ai pas réussi à changer la hauteur du TTrackBar avec XE10 reste à 19

Ben je peut te rassurer, que ce n´est pas toi , car j´ai le mème phénoméne (reste à 19).

[tourlourou]

Au passage, une autre méthode :
1) initialiser le OnClick avec une méthode PremierClick ;
2) attribuer au OnClick une méthode DeuxiemeClick ou PremierClick dans celle PremierClick ou DeuxiemeClick respectivement.

Sinon, +1 pour faire pointer le Tag sur un record avec toutes les valeurs voulues ou se servir du Tag comme un champ de Bits.

[anapurna]

salut
pourquoi faire simple quand ont peut faire compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Procedure MaForm.SecondClick(Sender : TObject);
begin
  (Sender as TTRACBAR).OnClick :=nil
   // ... je fais se que j'ai a faire
  (Sender as TTRACBAR).OnClick :=  FirstClick;
end;
 
Procedure MaForm.FirstClick(Sender : TObject);
begin
  (Sender as TTRACBAR).OnClick :=nil
  //... je fais se que j'ai a faire
  (Sender as TTRACBAR).OnClick :=  SecondClick;
end;

ne pas oublier dans le create de la forme d'initialiser tout les TrackBar

[SergioMaster]

Bonjour,

pourquoi faire simple quand ont peut faire compliqué

Parce que tu penses que ma solution (post 13) est compliquée ? c'est une simple utilisation des spécificités de FMX (composant dans composant) puisque de FMX il s'agit.

Ben je peut te rassurer, que ce n´est pas toi , car j´ai le mème phénoméne (reste à 19).

cela va dépendre du style utilisé mais j'ai essayé avec Dark.style, GoldenGraphic.style, Amakrits et réussi a avoir la taille que je voulais en changeant la valeur de StyleLookup du composant de TrackBarStyle à TrackStyle
par contre les styles plus windows ne connaissent pas
le tiptop serait de faire un style personnalisé