Sélection automatique de tous les checkbox d'un dbgrid
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:
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
