Discussion :

[bertrand_declerck]

Bonjour

j'ai créé sur base de l'excellent exemple dans le tutorial de developpez.com où on expliquait comment mettre des checkbox au sein d'un dbgrid et j'aimerai si c'est possible, que dès que je lance ma fiche contenant mon dbgrid, c'est sélectionner automatiquement tous les checkbox !

Sur base du code ci-dessous qui est le code indiquant comment la case réagit si elle est cochée, c'est possible ?

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
16
17
18
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin 
  with dbGrid1 do 
  begin 
    // La grille doit être modifiable...
    if (not ReadOnly) 
    // ainsi que le dataset
    and DataSource.DataSet.CanModify
    // Et la zone sur laquelle on a cliqué doit
    // être une case à cocher
    and (SelectedField.DataType = ftBoolean) then
    begin
      DataSource.DataSet.Edit;
      SelectedField.AsBoolean := not SelectedField.AsBoolean; 
      DataSource.DataSet.Post; 
    end; 
  end; 
end;

Merci de votre aide


bertrand

[mico2]

c'est sélectionner automatiquement tous les checkbox !

Peux-tu préciser ce que tu souhaites ?
* soit tu veux sélectionner toute ta colonne (sélection multiple) comme tu le ferais avec la souris.

* soit tu souhaites cocher tous les checkboxs de ta grille.

.

[bertrand_declerck]

C'est cela :

' soit tu souhaites cocher tous les checkboxs de ta grille. '

Que toute se fasse automatiquement et ce quelque soit le nombre de lignes variables !

merci de m'aider mico

[mico2]

Dans la mesure où l'état (coché ou non coché) de tes checkboxs reflète de façon visuelle la valeur du champ associé, c'est au niveau de ta base de données qu'il va falloir intervenir.

Il te faut parcourir tous les enregistrements de ta base, un à un, tester la valeur présente dans le champ et la modifier au besoin.
Je pense que le mieux serait de le faire dans l'évennement OnAfterOpen de ton Dataset.