coordonnées cellule stringgrid sur click droit

Version imprimable

15/06/2006, 17h32
mike600river

coordonnées cellule stringgrid sur click droit

bonjour,

voila mon pb:
j'ai une stringgrid dans laquelle, pour l'evenement DblClick j'ouvre une nouvelle form dont le contenu varie selon la ligne (Row) cliquée. ça ça marche.

maintenant il faudrait que ça fonctionne aussi sur le click droit de la souris.
pour l'instant ca m'ouvre la Form2 (en faisant un test du bouton sur le MouseUp) mais comme le selectCell n'est pas pris en compte je n'ai pas les infos de la lige ou j'ai fait mon click droit.

Comment faire pour recupérer l'indice de la ligne de ma stringgrid?

Salut,
Essaies :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm4::DBGrid1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
{
TGridCoord P = DBGrid1->MouseCoord(X,Y);
int i = P.X - 1;
DBGrid1CellClick(DBGrid1->Columns->Items[i]);
}
}

@ + ;)

15/06/2006, 18h13
mike600river

merci de ta reponse mais si ca marche avec le DBgrid, avec la stringgrid ben ca va pas
quand tu tapes:

Code:

TGridCoord P =

tu peux pas y faire correspondre un 'element' (qqchose en rapport avec une stringgrid :) ) de stringgrid
15/06/2006, 18h17
Sunchaser

8O
J'étais persuadé que l'on traitait d'un DBGrid .... désolé

Donc ça ferais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button == mbRight)
{
TGridCoord P = StringGrid1->MouseCoord(X, Y);
int i = P.X - 1;
StringGrid1SelectCell(Sender, i, Y, true);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
if (ACol == 2)
{
ShowMessage("ok");
}
}

@ + ;)

Perso, j'avais fais un jeu de sudoku qui, lorsque l'on clikdroitai (en clair, cliquait à l'aide du bouton droit ), décrémentait le nombre qui se trouve dans la case survolée.

Attention, voici le monstre

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
void __fastcall TForm1::SG1ContextPopup(TObject *Sender, TPoint &MousePos,
      bool &Handled)
{
    long X=MousePos.x; //Contient la coordonnée X de la souris
    long Y=MousePos.y; //Contient la coordonnée Y de la souris
 
 
    int C, L;
    /*Dans les if..then qui suivent, je cherche la colonne dans laquelle se trouve la cellule sélectionnée, suivant la coordonnée X */
if(X<30)
        C=0;
    else if(X>=30 && X<60)
        C=1;
    else if(X>=60 && X<90)
        C=2;
    else if(X>=90 && X<120)
        C=3;
    else if(X>=120 && X<150)
        C=4;
    else if(X>=150 && X<180)
        C=5;
    else if(X>=180 && X<210)
        C=6;
    else if(X>=210 && X<240)
        C=7;
    else if(X>=240)
        C=8;
 
    if(Y<30)
        L=0;
    else if(Y>=30 && Y<60)
        L=1;
    else if(Y>=60 && Y<90)
        L=2;
    else if(Y>=90 && Y<120)
        L=3;
    else if(Y>=120 && Y<150)
        L=4;
    else if(Y>=150 && Y<180)
        L=5;
    else if(Y>=180 && Y<210)
        L=6;
    else if(Y>=210 && Y<240)
        L=7;
    else if(Y>=240)
        L=8;
 
    //Je crée un rectangle de sélection sur la cellule de mon choix
    //Je sais, ce n'est pas la méthode la plus simple :s
    TGridRect myRect;
    myRect.Left = C;
    myRect.Top = L;
    myRect.Right = C;
    myRect.Bottom = L;
    SG1->Selection = myRect;
 
 
    ChangerChiffre(false); // Je change mon chiffre en le décrémentant
    VerifGrille(); //Je vérifie si la grille respecte les contraintes du sudoku
}

Voila du code à la Tenguryu barbare, très laid, très moche, et très lourd, mais très efficace. Notez que je cours-circuite l'évènement OnContextPopup
Les chiffres que je place dans mes conditions correspondent aux largeurs et hauteurs des cases de mon stringgrid
:)

merci a tous les deux.
j'ai adapté ton code cantrelle et ça marche sans pb (je serais tenté de dire comme d'habitude:)).
Code:

1 2 3 4 5 6 7 8 9 10 11 void __fastcall TForm_ppale::StringGrid_gpmiMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if ( Button == mbRight) // Si le clic s'est produit sur le bouton droit { TGridCoord P = StringGrid_gpmi->MouseCoord(X, Y); int i = P.Y ; StringGrid_gpmiSelectCell(Sender, X, i, true); StringGrid_gpmiDblClick(Sender); // On fait comme pr le DbleClic } }
tenguryu je n'ai pas essayé avec ton code mais ça aurait tres bien fait mon affaire aussi

Citation:

Voila du code à la Tenguryu barbare, très laid, très moche, et très lourd, mais très efficace.

à choisir, je prefere du lourd qui marche que du léger qui plante ;)