Détection PageControl ouvert

Version imprimable

08/10/2010, 11h54
dekalima

Détection PageControl ouvert

J'ai un problème assez difficile à expliquer.

J'ai ajouté un composant TpageControl avec 3 feuilles et dans chacunes de ces feuilles il y a un DBGrid.

Sur le coté j'ai un bouton "modifier" pour modifier les informations d'une ligne dans un DBGrid. ça marche très bien, j'ai pas de problème mais j'utilise le même bouton "modifier" pour les trois feuilles et du coup quand je veux modifier disons une ligne de la feuille 2 et il m'ouvre le résultat de la fonction "Clickonbuttonmodifier" également pour la feuille 1.

C'est du au fait que même quand je change de feuille il reste toujours une ligne en bleu ( celle sélectionnée ) du coup j'ai deux lignes en bleu si j'en sélectionne une autre dans la feuille 2. DONC il m'ouvre deux fenetres de modifications ( une pour chaque ligne ) ...

Ce que je cherche en fait c'est à lui faire comprendre que quand la feuille 2 du TPageControl est ouverte, je m'en fous de la 1.

Ou aussi, quand je change de feuille, il enlève la ligne sélectionnée en bleu ( il ne l'a plus en mémoire )...
Thanks
08/10/2010, 12h24
10_GOTO_10

Je ne suis pas sûr de bien comprendre ton problème. Il te faut peut-être modifier l'option dgAlwaysShowSelection de ta DBGrid:

Citation:

dgAlwaysShowSelection La cellule sélectionnée affiche le rectangle de focalisation, même si la grille ne détient plus la focalisation.
08/10/2010, 15h30
dekalima

Citation:

Envoyé par 10_GOTO_10

Je ne suis pas sûr de bien comprendre ton problème. Il te faut peut-être modifier l'option dgAlwaysShowSelection de ta DBGrid:

Merci pour ton aide mais malheureusement ça marche pas , je ne sais pas trop à quoi ça sert d'ailleurs parce que je vois pas franchement de différence. Mais le nom en effet semblait se rapprocher de ce que je cherchais...

Salut dekalima
Peut etre en utilisant l'evenement OnShow des TabSheet du TPageControl

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::TabSheet3Show(TObject *Sender)
{
ShowMessage("TabSheet3 affiché");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabSheet2Show(TObject *Sender)
{
ShowMessage("TabSheet2 affiché");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabSheet1Show(TObject *Sender)
{
ShowMessage("TabSheet1 affiché");
}

10/10/2010, 07h16
yarp

Pour connaitre le Tab en cours sur un PageControl tu as la propriété ActivePageIndex (read/write).
11/10/2010, 09h39
dekalima

merci à vous pour vos propositions mais ça marche pas en fait...

Blondelle, j'ai essayé ce que tu m'as proposé mais c'est pas exactement ce que je recherche en fait...

En simple : j'ai 3 feuilles dans un TPageControl et dans chacunes de ces feuilles j'ai un BDGRID.
Quand je passe d'une feuille à l'autre dans l'exe, je voudrais qu'il ne garde pas en mémoire la ligne éventuelle sur laquelle j'aurais cliqué sur le DBGRID2 par exemple

il ne faut qu'il y ait qu'une seule ligne bleue de "selection". à l'heure actuelle si je clique sur la première ligne du DBGRID1 et que je passe ensuite sur la feuille 2 avec le DBGRID2, il va me garder en bleu la ligne 1 du DBGrid1 même si je suis maintenant sur la feuille d'après.

Et ça m'embête pas mal parce que par moment j'importe les valeurs contenues dans le DBGRID et du coup il m'affiche 3 fenetres différentes car ya 3 DBGRID avec une ligne en bleu
11/10/2010, 10h50
blondelle

Si tu sais selectionner une ligne d'un DBGrid tu dois savoir la deselectionner donc.
Quand tu selectionne la TabSheet1 par exemple tu selectionne la ligne de ton DBGrid1 et tu deselectionne la ligne de tes DBGrid2 et DBGrid3.
Quand tu selectionne la TabSheet2 tu selectionne la ligne de ton DBGrid2 et tu deselectionne la ligne de tes DBGrid1 et DBGrid3.
Quand tu selectionne la TabSheet3 tu selectionne la ligne de ton DBGrid3 et tu deselectionne la ligne de tes DBGrid1 et DBGrid2.
Apres en appuyant ton Button "Modifier" c'est bien la bonne ligne du bon DBGrid qui est modifie
11/10/2010, 11h12
dekalima

Nan ça marche pas, même manuellement quand je double clique sur une ligne pour la remettre en blanc, quand je reviens sur la feuille après il m'a reselectionné la première ligne par défaut et la met en bleu.

argh
11/10/2010, 11h22
dekalima
Sinon j'ai trouvé ce lien : http://www.phwinfo.com/forum/nzn-fr-...ion-ligne.html

Le mec semble vouloir faire comme moi
j'ai tenté de faire dans l'évènement DBGridDblClick ceci:
Code:

1 2 3 4 5 void __fastcall TForm1::DBGrid3DblClick(TObject *Sender) { DBGrid3->SelectedRows->Delete(); }
Mais ça fonctionne pas non plus
11/10/2010, 14h11
dekalima
Bon j'ai testé la ligne :

Code:

DBGrid3->SelectedRows->Delete();

Et elle fonctionne bien quand je la lance sur un évènement:
Code:

1 2 3 4 void __fastcall TForm1::Button8Click(TObject *Sender) { DBGrid3->SelectedRows->Delete(); }
Donc le problème vient de l'évènement " on change de feuille dans le TpageControl"

Quel est l'évènement qu'on utilise pour signifier qu'on change de sheettab?
thanks

PS: l'évènement OnChange et OnChanging ne marchent pas chez moi

Code:

1
2
 
void __fastcall TForm1::TabSheet1Enter(TObject *Sender)

OnEnter du TabSheet

11/10/2010, 14h46
dekalima

Bon en fait, je crois que j'ai un bug dans mon programme car malgré toutes ces précautions , quand je clique sur une ligne du DBGrid1 il va me sélectionner la meme ligne sur le DBGrid2 qui est sur une autre feuille

c'est à se tapper la tête contre les murs ce truc
11/10/2010, 16h15
dekalima

C'est bon je me suis démerdé, ça marche correctement.
Merci à vous.
11/10/2010, 16h29
cedni

Tu pourrais poster ta solution ?

Le but étant d avoir une base de connaissances ...
11/10/2010, 16h40
dekalima

Ouaip en effet:

En fait... par ou commencer... donc j'ai deux feuilles dans un TPageControl et plutot que de me soucier de la ligne que sélectionne chaque DBGrid1, je filtre au moment ou je cherche à modifier ces lignes en questions...

Et pour les filtrer c'est tout con:

Code:

if (Form1->PageControl1->ActivePageIndex==0)

0 pour la feuille 1, 1 pour la feuille 2 ect...

En fait c'était tout con mais je me focalisais sur comment enlever ces lignes en bleu et pas sur une manière de les laisser mais de les filtrer...
voilà
11/10/2010, 19h04
cedni

Oui bien sur

Parcontre si tu devais avoir un plus grand nombre de tab , n hesites pas à utiliser switch case plutot qu une sucession de if

Parcontre , regardes :

J ai un pagecontrol et un nb indeterminé de tab contenant chacun un memo

A chaque changement de tab , j ecris l index du tab dans le memo
Code:

1 2 3 4 5 6 7 8 9 TMemo *LeMemo = NULL; LeMemo = dynamic_cast<TMemo *> (Form1->FindComponent("Memo" + IntToStr(PageControl1->ActivePageIndex+1) )); if (LeMemo != NULL) { LeMemo->Text = PageControl1->ActivePageIndex; // ou ce que tu veux }
Tu n aurais qu à remplacer tes memos par des dbgrid et faire l traitement que tu veux

12/10/2010, 10h31
dekalima

Merci,
J'ai pas tout compris dans ton code mais je le garde sous la main au cas ou!
;)