Discussion :

[dekalima]

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

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

dgAlwaysShowSelection La cellule sélectionnée affiche le rectangle de focalisation, même si la grille ne détient plus la focalisation.

[dekalima]

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...

[blondelle]

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

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
 
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é");
}

[yarp]

Pour connaitre le Tab en cours sur un PageControl tu as la propriété ActivePageIndex (read/write).

[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

[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

[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

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

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

1
2
3
4
5
void __fastcall TForm1::DBGrid3DblClick(TObject *Sender)
{
DBGrid3->SelectedRows->Delete();
 
}

Mais ça fonctionne pas non plus

[dekalima]

Bon j'ai testé la ligne :

Code :

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

DBGrid3->SelectedRows->Delete();

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

Code :

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

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

[cedni]

Code :

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

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

OnEnter du TabSheet

[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

[dekalima]

C'est bon je me suis démerdé, ça marche correctement.
Merci à vous.

[cedni]

Tu pourrais poster ta solution ?

Le but étant d avoir une base de connaissances ...

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

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

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à

[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

[cedni]

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 :

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

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

[dekalima]

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