Propriété Text d'un TCornerButton

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Je n'arrive pas à atteindre la propriété Text d'un TCornerButton.
Avec ce code cela fonctionne très bien avec un TBoutton , TLabel, TSpeedButton.
Si quelqu’un pouvait m'expliquer ?

Merci

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
 
procedure TFAccueil.LangueClick(Sender: TObject);
var
    i, x: Integer;
    Composent :  TComponent ;
    Forme : TForm ;
 
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
    for i := Application.ComponentCount - 1 downto 0 do
    if Application.components[i] is TForm then
    begin
       Forme := TForm(application.components[i]);
 
       if Forme.Name <> 'FLangues' then
       for x := Forme.ComponentCount - 1 downto 0 do
       begin
         Composent := Forme.Components[x];
         if Composent.Tag > 0 then
         begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Forme.Components[x] is TLabel then
                   TLabel(FindComponent(Composent.Name)).Text         := RecordTxt^.LG[Language] ;
 
             if Forme.Components[x] is TButton Then
                    TButton(FindComponent(Composent.Name)).Text       := RecordTxt^.LG[Language] ;
 
             if Forme.Components[x] is TSpeedButton Then
                    TSpeedButton(FindComponent(Composent.Name)).Text  := RecordTxt^.LG[Language] ;
 
            if Forme.Components[x] is TCornerButton then
                    TCornerButton(FindComponent(Composent.Name)).Text := 'essai'//RecordTxt^.LG[Language] ;
         end;
       end;
    end;
end;

Pièce jointe 409387

:tagcode:

Pourquoi ne pas utiliser correctement vos variables ?

FindComponent dans votre façon de faire cherche dans l'instance de TFAccueil et non dans l'instance de Forme

TCornerButton c'est FMX ?

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
procedure TFAccueil.LangueClick(Sender: TObject);
var
  i, x: Integer;
  Composent : TComponent ;
  Forme : TForm ;
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
  begin
    for i := Application.ComponentCount - 1 downto 0 do
    begin
      if Application.components[i] is TForm then
      begin
        Forme := TForm(application.components[i]);
 
        if Forme.Name <> 'FLangues' then
        begin
          for x := Forme.ComponentCount - 1 downto 0 do
          begin
           Composent := Forme.Components[x];
           if Composent.Tag > 0 then
           begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Composent is TLabel then
               TLabel(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent   is TButton Then
               TButton(Composent).Text := RecordTxt^.LG[Language]
             else if Composent is TSpeedButton Then
                TSpeedButton(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent is TCornerButton then
               TCornerButton(Composent).Text := 'essai'//RecordTxt^.LG[Language] ;
           end;
         end;
       end;
     end;
   end;
 end;
end;

05/09/2018, 18h42
ALWEBER
Je pense que l'erreur vient de
Code:

1 2 if Composent.Tag > 0 then
06/09/2018, 07h36
SergioMaster

Bonjour,

Citation:

Envoyé par ShaiLeTroll

TCornerButton c'est FMX ?

Oui, dans la "page" supplément de la palette

J'ai testé. L'erreur vient du fait que la propriété Tag n'est pas renseignée pour les TCornerButtons, donc rien à voir avec le composant lui même.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
var
    i, x: Integer;
    Composent :  TComponent ;
    Forme : TForm ;
 
begin
    for i := Application.ComponentCount - 1 downto 0 do
    if Application.components[i] is TForm then
    begin
       Forme := TForm(application.components[i]);
       if Forme.Name <> 'FLangues' then
       for x := Forme.ComponentCount - 1 downto 0 do
       begin
         Composent := Forme.Components[x];
         //if Composent.Tag > 0 then
         begin
            if Forme.Components[x] is TCornerButton then
                    TCornerButton(FindComponent(Composent.Name)).Text := 'essai' ;
         end;
       end;
    end;
end;

06/09/2018, 11h03
ShaiLeTroll
Citation:

Envoyé par SergioMaster

Oui, dans la "page" supplément de la palette

Merci, je l'ai aussi dans XE2 (même deux fois dans la palette), ne faisant jamais de FMX, je ne connais pas ces nouveaux controles
Citation:
Envoyé par ALWEBER

Je pense que l'erreur vient de

Code:

1 2 if Composent.Tag > 0 then
Comment peux-tu savoir cela sans le code ?
Qui te dis que TMario n'a pas faite cette partie ?
La propriété Tag étant publié depuis le TComponent, toute classe hérité y a accès, il a pu définir le Tag en conception IHM par exemple

Citation:

Envoyé par ALWEBER

J'ai testé. L'erreur vient du fait que la propriété Tag n'est pas renseignée pour les TCornerButtons, donc rien à voir avec le composant lui même.

Citation:

Envoyé par TMario

Je n'arrive pas à atteindre la propriété Text d'un TCornerButton
avec ce code cela fonction très bien avec un TBoutton , TLabel, TSpeedButton

L'image montre qu'il est en cours de débogage (point d'arrêt actif et en prêt à passer en éxécution) avec un accès un instance <nil> et donc une violation à l'adresse <nil>.text
TMario pense que cela fonctionne avec un TButton , TLabel, TSpeedButton mais j'ai clairement un doute sur la véracité de ces propos !

Faudrait vraiment avoir la confirmation sur le fait que FindComponent est fait sur Self (TFAccueil) au lieu d'être forme sur Forme (toutes formes de l'application sauf TFLangues) est l'origine du problème
Même si l'on peut supposer que TFAccueil soit la MainForm donc la première instance dans "Forme"

Je dirais que sur TFAccueil retourné comme "Forme", cela fonctionne avec I = 0 d'où l'illusion qu'avec TBoutton , TLabel, TSpeedButton cela fonctionne
Mais lorsque l'on passe sur I = 1, une autre TForm a un TCornerButton comme premier composant et cela plante en cherchant ce contrôle dans TFAccueil, ce qui donne l'illusion qu'avec TCornerButton cela ne fonctionne pas

Je pense qu'en utilisant la variable locale Composent, déjà on y verra plus clair
sans compter cela sera en plus bien plus rapide évitant les boucles internes du FindComponent
06/09/2018, 11h36
SergioMaster

Bonjour,

en fait je ne comprends pas l'objectif, à priori une sorte localisation (internationalisation/traduction) de programme ? en FMX il y a TLang qui peut faire ça très bien en plus il y a même une propriété qui peut empêcher la traduction automatique :roll:
06/09/2018, 11h45
ShaiLeTroll

Citation:

Envoyé par SergioMaster

en fait je ne comprends pas l'objectif, à priori une sorte localisation (internationalisation/traduction) de programme ? en FMX il y a TLang qui peut faire ça très bien en plus il y a même une propriété qui peut empêcher la traduction automatique :roll:

C'est bon à savoir de TLang si un jour j'ai du FMX à faire, merci pour l'info
Je suis encore sur GnuGetText avec des fichiers PO en VCL, la plaie l'i18n !
06/09/2018, 11h51
SergioMaster

Citation:

Envoyé par ShaiLeTroll

C'est bon à savoir de TLang si un jour j'ai du FMX à faire, merci pour l'info

De rien, mais il y a quand même quelques bémols à TLang, je ne suis pas persuadé que cela soit aussi bien que des composants tiers comme DKLang, mais bon je n'ai aps non plus pousser mes essais
06/09/2018, 12h36
ALWEBER

Citation:

Envoyé par ShaiLeTroll

Comment peux-tu savoir cela sans le code ?
Qui te dis que TMario n'a pas faite cette partie ?
La propriété Tag étant publié depuis le TComponent, toute classe hérité y a accès, il a pu définir le Tag en conception IHM par exemple

J'ai repris le code source qui nous avait été proposé et je l'ai réduis progressivement pour isoler le problème.
J'ai mis ce code opérationnel dans mon précédent post ce qui explique mon affirmation :)

Fonctionne très bien

Citation:

Envoyé par ShaiLeTroll

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
procedure TFAccueil.LangueClick(Sender: TObject);
var
  i, x: Integer;
  Composent : TComponent ;
  Forme : TForm ;
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
  begin
    for i := Application.ComponentCount - 1 downto 0 do
    begin
      if Application.components[i] is TForm then
      begin
        Forme := TForm(application.components[i]);
 
        if Forme.Name <> 'FLangues' then
        begin
          for x := Forme.ComponentCount - 1 downto 0 do
          begin
           Composent := Forme.Components[x];
           if Composent.Tag > 0 then
           begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Composent is TLabel then
               TLabel(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent   is TButton Then
               TButton(Composent).Text := RecordTxt^.LG[Language]
             else if Composent is TSpeedButton Then
                TSpeedButton(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent is TCornerButton then
               TCornerButton(Composent).Text := 'essai'//RecordTxt^.LG[Language] ;
           end;
         end;
       end;
     end;
   end;
 end;
end;

Merci
TCornerButton(Composent).Text := RecordTxt^.LG[Language] ; Fonctionne