Quel est le composant sélectionné /DBGrid et multi sélection

Bonjour,

j'espère que ce sujet n'a pas déjà était abordé, j'ai fait une recherche et n'ai rien trouvé :oops:

je voudrais savoir de quelle manière je pourrais connaitre le composant qui est sélectionné sur la page.

ex : si j'ai 2 TDBGrid sur ma page, savoir sur laquelle l'utilisateur a sélectionné des lignes...

merci d'avance pour vos réponses

sur tous les évenement OnClick il y a le parmaètre Sender : TObject

il suffit donc de stocker ou d'afficher

Code:

---

1 2 3 4 5

Sender.name;   ou   Sender.classname;

---

Afin de savoir quels composants ont été cliqué :)

bon courage !

Il y a ActiveControl :

Citation:

---

Désigne le contrôle de la fiche détenant la focalisation.

---

le risque d'activeControl est que si lol_adele veut faire son test sur le click d'un bouton, c'est le fameux bouton qui sera l'activeControl, et on perdra donc l'information de quelle DBGrid est cliquée.

merci pour vos réponses

effectivement, je souhaite connaitre les lignes sélectionné dans telle ou telle grille une fois appuyé sur un bouton (c'est dans le cas d'un exort ou d'un copier)

Par contre, je n'ai pas sender.name, uniquement sender.className sur clic sur un composant...

j'a réussi toutefois en créant une variable globale dans laquelle je sauvegarde la dbgrid sur le onEnter.

Et si je veux mettre cette variable à nil quand aucune de mes dbgrid est sélectionnée, je suis obligée sur entrée sur tous les autres composant de la page de mettre la variable à nil ?

Citation:

---

Envoyé par lol_adele

je n'ai pas sender.name,

---

il faut utiliser

Code:

---

if (Sender as TdbGrid).name='MondbGrid1' then...

---

je pensais à ça, pourquoi s'embêter....

si tu mets 2 variables globales dans ton application

genre

Code:

---

1 2 3

var   DBGrid1Selected, DBGrid2Selected : Boolean;

---

sur le formcreate tu initialise ces 2 variables à False

lors d'un selection sur une DBGrid

Code:

---

1 2 3 4 5 6 7

procedure TForm1.DBGrid1CellClick(Column: TColumn); begin If DBGrid1.SelectedIndex> 0 then //si quelque chose est sélectionné DBGrid1Selected:=true else DBGrid1Selected:=False; end;

---

Code:

---

1 2 3 4 5 6 7

procedure TForm1.DBGrid2CellClick(Column: TColumn); begin If DBGrid2.SelectedIndex> 0 then //si quelque chose est sélectionné DBGrid2Selected:=true else DBGrid2Selected:=False; end;

---

et sur le bouton exportation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Button1Click(Sender: TObject); begin   if (not DBGrid1Selected) AND (not DBGrid2Selected) then begin showmessage('Remet tes lunettes, aucune grille n''est sélectionnée !'); exit; end;   if DBGrid1Selected then begin //Export grille 1 end; if DBGrid2Selected then begin //Export grille 2 end;       end;

---

cela fonctionnerait-il dans ton cas ?

PS : cette méthode permet de faire 2 exports si des lignes sont sélectionnées dans les 2 DBGRids

Moi je dirais plutôt une variable ActiveGrid de ta fiche (sous private) de type TDBGrid comme tu l'as déjà fait :

Code:

---

1 2 3 4 5 6 7 8

TForm1 = class(TForm) ... private { Déclarations privées } ActiveGrid : TDBGrid; public { Déclarations publiques } end;

---

Ensuite tu fais un événement TForm1.GridEnter que tu associe aux événements OnEnter de tes deux grilles et que tu implémentes comme suit :

Code:

---

1 2 3 4

procedure TForm1.GridEnter(Sender: TObject); begin ActiveGrid := TDBGrid(Sender); end;

---

Tu refais le même coup avec le OnExit :

Code:

---

1 2 3 4

procedure TForm1.GridExit(Sender: TObject); begin ActiveGrid := nil; end;

---

Citation:

---

Envoyé par -Sylvain Leray-

je pensais à ça, pourquoi s'embêter....
si tu mets 2 variables globales dans ton application

---

Le problème c'est qu'il me faut quelque chose de général, qui marche avec un nombre non défini de DBGrid

Citation:

---

Envoyé par sjrd

Tu refais le même coup avec le OnExit :

Code:

---

1 2 3 4

procedure TForm1.GridExit(Sender: TObject); begin ActiveGrid := nil; end;

---

---

Le problème c'est que lorsque l'on clique sur le bouton "exporter", on sort de l'objet grille, donc ActiveGrid est à nil, donc on exporte pas...

Alors sur le OnGridExit, tu n'applique Nil que si SelectedIndex=0

Code:

---

1 2 3 4 5

procedure TForm1.GridExit(Sender: TObject); begin if TDBGrid(Sender).selctedIndex=0 then ActiveGrid := nil; end;

---

Bon bah ça marche pas non plus...

mais bon, à part mettre la variable à nil quand tu clique sur n'importe quel autre composant (sauf le bouton exporter), je vois pas autre chose...

merci tout l'monde pour vos réponses je cloture :wink:

Citation:

---

Envoyé par lol_adele

Le problème c'est que lorsque l'on clique sur le bouton "exporter", on sort de l'objet grille, donc ActiveGrid est à nil, donc on exporte pas...

---

:oops: Pas pensé du tout
Peux-tu envisager de remplacer le bouton Exporter par un TSpeedButton, qui lui n'accepte pas le focus et donc ne l'enlèvera pas à la grid ? Si oui alors reprends mon idée et ça fonctionnera :)

Citation:

---

Envoyé par sjrd

Peux-tu envisager de remplacer le bouton Exporter par un TSpeedButton, qui lui n'accepte pas le focus et donc ne l'enlèvera pas à la grid ? Si oui alors reprends mon idée et ça fonctionnera :)

---

Effectivement ça résout le pb !!! :D

tu me demande si je peux "envisager" de mettre un TSpeedButton...
quel pourrait être le pb ??? quele est la différence à part qu'il ne prend pas le focus ?

il suffit pê de ne garder que le OnExit des TDBGrid dans lequel on affecte à ActiveGrid ssi sélection :

Code:

---

1 2 3 4 5 6

procedure TForm1.GridExit(Sender: TObject); begin if TDBGrid(Sender).SelectedIndex<>0 then ActiveGrid := TDBGrid(Sender) else if ActiveGrid = TDBGrid(Sender) then ActiveGrid := nil; end;

---

finalement, quelque autres questions :roll:

- un DBGrid, si on autorise la multisélection, on ne peut plus laisser l'option "édition"...
--> est-ce que y'a moyen de changer cela, où est-ce qu'il existe un autre composant qui pourrait y remédier ???

- quand on ouvre une page avece un DBGrid sur lequel on a autorisé la multisélection, il n'y a aucune ligne de sélectionnée; une fois que l'on clique dessus, ça sélectionne une ligne.
--> est-ce qu'il y a moyen de revenir à l'apparence de départ, càd sans aucune ligne sélectionnée lorsque l'on sort du DBGrid (clic sur une autre partie de la page) ?

Citation:

---

Envoyé par lol_adele

tu me demande si je peux "envisager" de mettre un TSpeedButton...
quel pourrait être le pb ??? quele est la différence à part qu'il ne prend pas le focus ?

---

Aucun, c'est juste que parfois on a besoin de pouvoir avoir le focus, d'où ma question ;)

je sais pas si ces questions ont été vues, et pi comme elles sont en fin de la 1ère page, je reposte :oops:

Citation:

---

Envoyé par lol_adele

finalement, quelque autres questions :roll:

- un DBGrid, si on autorise la multisélection, on ne peut plus laisser l'option "édition"...
--> est-ce que y'a moyen de changer cela, où est-ce qu'il existe un autre composant qui pourrait y remédier ???

- quand on ouvre une page avece un DBGrid sur lequel on a autorisé la multisélection, il n'y a aucune ligne de sélectionnée; une fois que l'on clique dessus, ça sélectionne une ligne.
--> est-ce qu'il y a moyen de revenir à l'apparence de départ, càd sans aucune ligne sélectionnée lorsque l'on sort du DBGrid (clic sur une autre partie de la page) ?

---

Citation:

---

Envoyé par qi130

Code:

---

if (Sender as TdbGrid).name='MondbGrid1' then...

---

---

Non il faut plutôt faire

Code:

---

if Sender=MondbGrid1 then....

---

Comme cela si ob choage le nom du composant, on sera pas chocolat. Et de plus c'est plus propre.