Discussion :

[BuzzLeclaire]

Bonjour,
en cherchant sur le fourm j'ai trouvé mon bonheur

http://www.developpez.net/forums/d21...-ligne-grisee/

Mais j'ai un souci, lorsque je doubleclick je fais cette procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFormPrincipal.StringGrid1DblClick(Sender: TObject);
Begin
  if  Ligneclick > 1 then
  Begin
      StatusBar1.Panels[0].Text := 'Saisie Tâche';
    Try
      FormSaisieTache := TFormSaisieTache.Create(Application);
      FormSaisieTache.ShowModal;
      FormSaisieTache.Release;
    Finally
      FormSaisieTache.free;
    end;
  end;
end;

Ensuite je recherche dans quelle ligne j'etais genre

Code :

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

1
2
3
4
5
6
7
8
procedure TFormSaisieTache.FormCreate(Sender: TObject);
Begin
  if not Modification then
  Begin
    LabelSalarie.Caption := 'Tâche Pour : '
    + FormPrincipal.StringGrid1.Cells[0,FormPrincipal.StringGrid1.Row];
  end;
end;

La valeur :
FormPrincipal.StringGrid1.Row

est fausse si justement je clique dans la Fixed colonne, il me retourne la cellule séléctionné (celle ou l'on peut voir le rectangle dans le StringGrig]

Exemple je clique 1 fois sur la cellule 3,4 (la on a le focus)
juste apres je doubleclique sur la cellule 0,6
la valeur FormPrincipal.StringGrid1.Row est égale à 4 là où ce trouve le focus au lieu de 6
Si je doubleclique en celle 2,4 la valeur de FormPrincipal.StringGrid1.Row est égale à 4, là c'est bon.

comment faire au moment du doubleclique que le SelectCell m'accompagne(focus = 0, la ligne ou je me trouve)

J'espere que je suis claire.

Merci de vos remarques.

[BuzzLeclaire]

J'ai trouvé :
var
SelectCell : TGridRect;
begin
SelectCell.Left :=1;
SelectCell.Right :=1;
SelectCell.Top :=LigneClick;
SelectCell.Bottom :=LigneClick;
StringGridSemaine.Selection := SelectCell;
end;

Merci à plus