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