Question OnClick TTrackBar.

Version imprimable

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:

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.

18/11/2015, 12h55
ThWilliam

Bonjour,

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

Cordialement
Thierry
18/11/2015, 13h00
jeng37

Citation:

Envoyé par ThWilliam

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
18/11/2015, 14h06
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

Citation:

Envoyé par 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

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:

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;

18/11/2015, 15h32
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

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:

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 :P

18/11/2015, 16h47
SergioMaster

Citation:

Envoyé par Andnotor

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

sauf s'il s'agit d'un TTrackbar de FMX :zoubi:
18/11/2015, 17h00
Andnotor

Citation:

Envoyé par SergioMaster

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

Dans ces conditions, je n'ai rien dit ;)

bonjour à tous,:coucou:

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:

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:

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é?

18/11/2015, 17h52
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...

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:

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:

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;

19/11/2015, 08h43
SergioMaster
Bonjour,

Citation:

Envoyé par jeng37

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:

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 :aie:
19/11/2015, 09h06
jeng37

Citation:

Envoyé par SergioMaster

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 :ccool:
Je vais tester cela, et oui je confirme il s´agit de FMX.
19/11/2015, 09h58
jeng37

Citation:

Envoyé par SergioMaster

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 :aie:

Ben je peut te rassurer, que ce n´est pas toi 8-) , car j´ai le mème phénoméne (reste à 19).:?
19/11/2015, 14h32
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.

salut
pourquoi faire simple quand ont peut faire compliqué ;)

Code:

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

01/12/2015, 10h43
SergioMaster

Bonjour,

Citation:

Envoyé par anapurna

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.

Citation:

Envoyé par jeng37

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é