Comment assigner le contenu d'un "Edit" à un onglet d'un "TabControl" ?

Version imprimable

07/04/2009, 09h25
petitclem

Comment assigner le contenu d'un "Edit" à un onglet d'un "TabControl" ?

Bonjour, :)

sur ma Form, j'ai un composant TabControl et à coté de celui-ci j'ai un composant Edit.
Je souhaiterai que le contenu du Edit change en fonction de l'onglet que j'ai sélectionné.

Comment dois je m'y prendre ?
Je n'arrive pas à trouver la propriété ou la méthode à utiliser pour faire ceci !!!
Y aurait il quelqu'un pour m'aider ? :?

Merci d'avance et à bientôt !
07/04/2009, 10h03
pottiez

Salut,
il me semble qu'il faut que tu sauvegarde, dans un tableau ou un vecteur par exemple, la valeur du Edit pour chaque onglet.
Ensuite, tu as un évènement OnChange qui se produit à chaque fois que tu change d'onglet, dans cette évènement, il suffit de sauvegarder la valeur de l'onglet courant, pour de lui attribuer la valeur du nouvel onglet sélectionné ;)

Salut Pottiez , t es du coin aussi

Sinon effectivement le onChange , le onEnter ( pour initialiser ) et la valeur TabIndex

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 TabControl1->Tabs->Add("premier");
 TabControl1->Tabs->Add("deuxieme");
 TabControl1->Tabs->Add("troisieme");
 Memo1->Clear();
 Edit1->Clear();
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
if (TabControl1->TabIndex==0){Memo1->Text="Premier";Edit1->Text="Premier";} ;
if (TabControl1->TabIndex==1){Memo1->Text="Deuxieme";Edit1->Text="Deuxieme";} ;
if (TabControl1->TabIndex==2){Memo1->Text="Troisieme";Edit1->Text="Troisieme";} ;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabControl1Enter(TObject *Sender)
{
   Memo1->Text="Premier";
}
//---------------------------------------------------------------------------

07/04/2009, 14h41
petitclem

Merci !

Mais quand est il si l'utilisateur écrit du texte dans l'edit à l'onglet 1, écrit un texte différent dans l'edit à l'onglet 2, et revient à l'onglet 1 pour retrouver le texte qu'il avait écrit ? :?

J'arrive bien à avoir un texte différent dans l'edit quand je change d'onglet mais quand je reviens sur l'onglet précédent, ça ne garde pas en mémoire ce que j'avais écrit !!! 8O
07/04/2009, 14h53
pottiez

D'ou le fait de mettre dans un tableau, par exemple tu as 3 onglets, tu fait un tableau de dimension 3 et tu enregistre la valeur lorsque c'est l'onglet 0 à l'index 0 du tableau, lorsque c'est l'onglet tu enregistre à l'index 1, ....
Comme ca tu as tes valeurs pour tout les onglets.
07/04/2009, 15h08
petitclem
OK, ca fonctionne pour le moment ! :D

j'ai fait comme ceci :

- dans mon .h, j'ai déclaré :
Code:

1 2 AnsiString Tableau[10];
- dans le OnChange du TabControl :
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::TabControl1Change(TObject *Sender) { Edit2->Text = Tableau[TabControl1->TabIndex]; }
- dans le OnChange de l'edit :
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::Edit2Change(TObject *Sender) { Tableau[TabControl1->TabIndex] = Edit2->Text; }
Par contre, si j'ai plusieurs Edit dans mes onglets, il va falloir plusieurs Tableau aussi ? :?:?:?
07/04/2009, 15h11
pottiez

Oui plusieur tableau ou un tableau d'une structure regroupant toutes les variables (une par composant)
07/04/2009, 15h21
petitclem

Tu veux dire un tableau avec plusieurs lignes ???

Bin je veut dire un structure, comme on les utilise en C ou en C++, le mieux est encore une classe

Dans un .h
Code:

1 2 3 4 5 6 class saveTabSheet{ public : AnsiString edit1; AnsiString edit2; ... };
pour la déclaration de ton tableau au lieu de AnsiString tu met ta structure :

Code:

saveTabSheet Tableau[10];

Dans le OnChange de l'onglet :
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::TabControl1Change(TObject *Sender) { Edit2->Text = Tableau[TabControl1->TabIndex].edit2; }
Dans le OnChange de l'edit :
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::Edit2Change(TObject *Sender) { Tableau[TabControl1->TabIndex].edit2 = Edit2->Text; }

07/04/2009, 17h03
petitclem

C'est ok, merci Pottiez ! :king:

Par contre, je n'arrive pas à faire la même chose avec un composant ComboBox ? :?:?:?
07/04/2009, 17h12
pottiez

Pour un TComboBox tu doit sauvegarder plusieurs chose, la propriété Items et la propriété Text ;)

Ce que j'ai fait ne compile pas ! 8O

- Déclaration dans le .h de ma structure :

Code:

1
2
3
4
5
6
7
8
9
 
class saveTabSheet{
public :
  AnsiString edit2;
  AnsiString edit3;
  AnsiString Combo1;
  AnsiString Combo2;
 
};

- dans le OnChange du TabControl :

Code:

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
 
		Edit2->Text = Tableau[TabControl1->TabIndex].edit2 ;
		Edit3->Text = Tableau[TabControl1->TabIndex].edit3 ;
		ComboBox1->Text = Tableau[TabControl1->TabIndex].Combo1;
		ComboBox1->Items = Tableau[TabControl1->TabIndex].Combo2;
}

- dans le OnChange du ComboBox :

Code:

1
2
3
4
5
6
7
8
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
	Tableau[TabControl1->TabIndex].Combo1 = ComboBox1->Text;
	Tableau[TabControl1->TabIndex].Combo2 = ComboBox1->Items;
 
}

07/04/2009, 17h42
pottiez

Oui parce que ton Combo2 ne doit pas être de type AnsiString mais de type TStrings ;)
07/04/2009, 17h48
petitclem
Erreur de compilation !

j'ai déclaré comme ceci :
Code:

1 2 TStrings Combo2;
07/04/2009, 17h52
pottiez

Excuse moi, c'est un TStrings *, ce que tu aurais pus voir en consultant l'aide :roll:
07/04/2009, 17h54
petitclem

Oui, j'ai essayé aussi, l'application s'exécute mais quand je fais un changement d'onglet, l'application affiche un message d'erreur venant du déboguer "Impossible d'affecter nil à TComboBoxStrings" !!! 8O

Alors il ne faut pas le faire tout a fais comme cela pour cette variable

Dans le constructeur, tu doit faire un new pour chaque index du tableau :
Code:

1 2 for(int i=0;i<10;i++) Tableau[i].Combo2 = new TStrings;
Dans le OnChange de l'onglet :
Code:

1 2 3 4 5 ComboBox1->Clear(); for(int i=0;i<Tableau[TabControl1->TabIndex].Combo2.Count;i++) { ComboBox1->Items->Add(Tableau[TabControl1->TabIndex].Combo2->String[i]); }
Dans le OnChange du ComboBox
Code:

1 2 3 4 5 Tableau[TabControl1->TabIndex].Combo2->Clear(); for(int i=0;i<ComboBox1->Count;i++) { Tableau[TabControl1->TabIndex].Combo2->Add(ComboBox1->Items->String[i]); }

08/04/2009, 09h15
petitclem
Citation:
Dans le constructeur, tu doit faire un new pour chaque index du tableau :

Code:

1 2 3 for(int i=0;i<10;i++) Tableau[i].Combo2 = new TStrings;
Tu parles du constructeur de ma Form ?
08/04/2009, 09h18
pottiez

oui :D

Et bien j'ai un petit paquet d'erreur, la première :
Code:

1 2 [BCC32 Erreur] UPageControl.cpp(19): E2352 Impossible de créer une instance de la classe abstraite 'TStrings'
8O8O8O8O

08/04/2009, 09h25
pottiez

Alors remplace la par une TStringList *

Au plus simple, j'ai fait comme ceci :

- dans le constructeur de ma Form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
 
	for(int i=0;i<10;i++)
	{
		Tableau[i].Combo2 = new TStrings *;
 
	}
 
}

avec l'erreur :

Code:

1
2
 
[BCC32 Erreur] UPageControl.cpp(19): E2034 Impossible de convertir 'TStrings * *' en 'TStrings *'

- dans le OnChange du TabControl :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
 
		Edit2->Text = Tableau[TabControl1->TabIndex].edit2 ;
		Edit3->Text = Tableau[TabControl1->TabIndex].edit3 ;
 
        ComboBox1->Clear();
 
		for(int i=0;i<Tableau[TabControl1->TabIndex].Combo2.Count;i++)
		{
			ComboBox1->Items->Add(Tableau[TabControl1->TabIndex].Combo2->String[i]);
		}
 
}

avec les erreurs :

Code:

1
2
3
 
[BCC32 Erreur] UPageControl.cpp(43): E2294 Structure nécessaire sur le côté gauche de . ou .*
[BCC32 Erreur] UPageControl.cpp(45): E2316 'String' n'est pas un membre de 'TStrings'

- dans le OnChange du ComboBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
	Tableau[TabControl1->TabIndex].Combo2->Clear();
	for(int i=0;i<ComboBox1->Count;i++)
	{
		Tableau[TabControl1->TabIndex].Combo2->Add(ComboBox1->Items->String[i]);
	}
 
}

avec les erreurs :

Code:

1
2
3
 
[BCC32 Erreur] UPageControl.cpp(76): E2316 'Count' n'est pas un membre de 'TComboBox'
[BCC32 Erreur] UPageControl.cpp(78): E2316 'String' n'est pas un membre de 'TStrings'

Je ne vois pas comment faire !!! 8O

Dans la classe :

Code:

TStringList* Combo2;

- dans le constructeur de ta Form :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 
    for(int i=0;i<10;i++)
    {
        Tableau[i].Combo2 = new TStringsList;
 
    }
 
}

- dans le OnChange du TabControl :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
 
        Edit2->Text = Tableau[TabControl1->TabIndex].edit2 ;
        Edit3->Text = Tableau[TabControl1->TabIndex].edit3 ;
 
        ComboBox1->Clear();
 
        for(int i=0;i<Tableau[TabControl1->TabIndex].Combo2->Count;i++)
        {
            ComboBox1->Items->Add(Tableau[TabControl1->TabIndex].Combo2->Strings[i]);
        }
 
}

- dans le OnChange du ComboBox :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
    Tableau[TabControl1->TabIndex].Combo2->Clear();
    for(int i=0;i<ComboBox1->Items->Count;i++)
    {
        Tableau[TabControl1->TabIndex].Combo2->Add(ComboBox1->Items->Strings[i]);
    }
 
}

08/04/2009, 10h37
petitclem

ok merci Pottiez, ça compile mais lorsque je change d'onglet, le texte du ComboBox est effacé (il n'y a plus rien à l'intérieur) !!! 8O
08/04/2009, 10h47
pottiez

Oui, c'est parce qu'il faut que tu remette le code avec la variable Combo1 de type AnsiString pour la propriété Text

oui, c'est ce que j'ai fait, mais c'est pareil : 8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
 
		Edit2->Text = Tableau[TabControl1->TabIndex].edit2 ;
		Edit3->Text = Tableau[TabControl1->TabIndex].edit3 ;
 
        ComboBox1->Clear();
 
		ComboBox1->Text = Tableau[TabControl1->TabIndex].Combo1;
 
		for(int i=0;i<Tableau[TabControl1->TabIndex].Combo2->Count;i++)
		{
			ComboBox1->Items->Add(Tableau[TabControl1->TabIndex].Combo2->Strings[i]);
		}
 
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
	Tableau[TabControl1->TabIndex].Combo1 = ComboBox1->Text;
 
	Tableau[TabControl1->TabIndex].Combo2->Clear();
	for(int i=0;i<ComboBox1->Items->Count;i++)
	{
		Tableau[TabControl1->TabIndex].Combo2->Add(ComboBox1->Items->Strings[i]);
	}
 
}

Essaye plutôt dans cette ordre la :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
void __fastcall TForm1::TabControl1Change(TObject *Sender)
{
 
        Edit2->Text = Tableau[TabControl1->TabIndex].edit2 ;
        Edit3->Text = Tableau[TabControl1->TabIndex].edit3 ;
 
        ComboBox1->Clear();
 
        for(int i=0;i<Tableau[TabControl1->TabIndex].Combo2->Count;i++)
        {
            ComboBox1->Items->Add(Tableau[TabControl1->TabIndex].Combo2->Strings[i]);
        }
 
        ComboBox1->Text = Tableau[TabControl1->TabIndex].Combo1;
 
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
 
    Tableau[TabControl1->TabIndex].Combo1 = ComboBox1->Text;
 
    Tableau[TabControl1->TabIndex].Combo2->Clear();
    for(int i=0;i<ComboBox1->Items->Count;i++)
    {
        Tableau[TabControl1->TabIndex].Combo2->Add(ComboBox1->Items->Strings[i]);
    }
 
}

08/04/2009, 11h24
petitclem

Marche toujours pas !!! :(

Je ne comprend pas pourquoi ... :?
08/04/2009, 14h33
pottiez

La je suis désolé mais je ne voit pas non plus pourquoi, mais le meilleurs moyen pour toi de voir ce qui ce passe c'est de déboguer en mettant des point d'arrêt ;)

Bonjour,

j'ai un autre problème :

dans un thread, des données arrivent tout les x temps et s'ouvre à chaque fois un fichier (TStringList) pour récupérer l'heure de la venue des dernières données pour l'afficher dans un "Edit". Ces données viennent de plusieurs sources ayant chacune un numéro de série différent (une Tab d'un TabControl situé sur ma Form par numéro série).

J'arrive à afficher l'heure mais quand je change d'onglet, le contenu de "l'Edit" de l'heure s'efface !!!

J'ai fait comme ceci :

- dans mon thread.h :
Code:

1 2 AnsiString Tableau[20];
- dans mon thread.cpp :
Code:

1 2 3 4 5 6 7 8 9 10 //Afficher dernière prise de mesures struct tm *Time; time_t DataHeure = StrToInt(leFichier->Strings[0]); Time = localtime(&DataHeure); AnsiString Heure; AnsiString laDate; Tableau[FormClient->JvgTabControlFlotteurs->TabIndex] = Heure.sprintf("%02d h %02d min", Time->tm_hour, Time->tm_min); FormClient->EditHeure->Text = Tableau[FormClient->JvgTabControlFlotteurs->TabIndex] ;
- dans le .cpp de ma Form (onChange du TabControl) :
Code:

1 2 FormClient->EditHeure->Text = Tableau[FormClient->JvgTabControlFlotteurs->TabIndex];
Comment puis-je faire pour que les valeurs soient gardées en mémoire lorsque je change d'onglets ??? 8O :?8O:?

10/04/2009, 15h36
pottiez

Salut,
comme pour tout les edit, tu ajoute une variable dans ta classe de sauvegarde, ici de type AnsiString vu que la propriété Text est un AnsiString.
Lorsque tu change le Text du edit tu l'enregistre également dans la variable correspondante de l'onglet courant (dans Tableau) et lors du OnChange du TabControle tu remet cette variable dans le TEdit
10/04/2009, 15h45
petitclem
Citation:

Salut,
comme pour tout les edit, tu ajoute une variable dans ta classe de sauvegarde, ici de type AnsiString vu que la propriété Text est un AnsiString.
Lorsque tu change le Text du edit tu l'enregistre également dans la variable correspondante de l'onglet courant (dans Tableau) et lors du OnChange du TabControle tu remet cette variable dans le TEdit

Ok pottiez, quand tu perles de "classe de sauvegarde", tu parles de ma classe :
Code:

1 2 3 4 5 6 7 8 9 class saveTabSheet{ public : AnsiString editDate; AnsiString editHeure; };
:?:?:?:?:?:?:?
10/04/2009, 15h47
pottiez

Oui
10/04/2009, 16h15
petitclem

J'ai effectué tout les changements et ça ne fonctionne toujours pas : lorsque je change d'onglet, le contenu de l'EditHeure est vide, puis je repasse sur l'autre onglet et le contenu de l'EditHeure est vide aussi !!!! 8O

Comment ça se fait ??? :?:?:?

Salut !

Comme la propriété Tabs est du type TStrings, il est possible de lier un objet à chaque item (Strings) à l'aide de la propriété Objects.
Supposons maintenant que l'on travaille sans aucun soucis d'économie des moyens, alors on peut attacher à chaque tab son propre TEdit (qui vont s'empiler les uns sur les autres) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { TEdit *Edit; //Je suppose ici que le TabIndex est par défaut à 0 int max = TabControl1->Tabs->Count-1; for(int j = max; j >= 0 ; j--) { Edit = new TEdit(this); Edit->Parent = this; Edit->Text = TabControl1->Tabs->Strings[j]; Edit->SetBounds(10,20,80,23); TabControl1->Tabs->Objects[j] = Edit; } } //-- void __fastcall TForm1::TabControl1Change(TObject *Sender) { int n = TabControl1->TabIndex; ((TEdit*)TabControl1->Tabs->Objects[n])->BringToFront(); } //--
Si on devait rajouter un Tab dynamiquement on le ferait avec AddObject.
Voir l'aide pour TStrings::AddObject.

A plus !

10/04/2009, 16h19
pottiez

As mon avis la meilleur solution c'est d'enregistrer dans tes variables dans l'évènement OnChanging du TTabControl (au lieu de chaque évènement OnChange des composant à enregistrer)
14/04/2009, 12h33
petitclem

Bonjour, je suis arrivé à faire ce que je voulais ! ;)

Je voulais savoir comment attribué des attributs "Font" pour les onglets actifs car à chaque fois que je donne un attribut de "Font" pour un onglet, il le fait pour ceux qui sont passifs !!! 8O
14/04/2009, 12h35
pottiez

Salut, il me semble que tu ne peut pas affecter une Font à un onglet particulier, si tu change la Font, tu la change pour tout les onglets
14/04/2009, 13h56
petitclem

Et bien c'est bizarre car je mets l'écriture des onglets de couleur bleu et en gras et quand je lance l'application, si j'ai par exemple 2 onglets, celui qui est inactif va être écrit en bleu et en gras alors que celui qui est actif va être écrit en noir standard (et c'est toujours comme ça) !!!!

8O8O8O8O8O8O8O8O8O8O
14/04/2009, 14h16
pottiez

C'est parce qu'il doit y avoir une propriété qui permet de mettre en évidence l'onglet sélectionné, il te reste à voir si c'est paramétrable ou non

Fuseau horaire GMT +2. Il est actuellement 17h21.