CheckBox et StringGrid

Version imprimable

Bonjour à tous,

J'ai une simple stringgrid dans laquelle je place un checkbox mais quand on clique sur le checkbox rien ne se passe.

Quelqu'un aurait-il une idée :)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TForm1.CheckBox1Click(Sender: TObject); begin CheckBox1.Checked:= not CheckBox1.Checked; end; procedure TForm1.FormCreate(Sender: TObject); begin CheckBox1.Parent:= StringGrid1; CheckBox1.Left := 80; CheckBox1.top := 30; CheckBox1.OnClick:= CheckBox1Click; end;
Que je mette ou pas la ligne ci-dessous, ça ne change rien.
Code:

1 2 CheckBox1.OnClick:= CheckBox1Click;
Merci d'avance pour vos lumières :)

05/03/2010, 09h22
ero-sennin
Salut,

Pour commencer, la ligne de code suivante n'est pas utile :

Code:

CheckBox1.OnClick:= CheckBox1Click;

En effet, si tu ne crée pas ton CheckBox dynamique, tu n'as pas besoin de réaffecter la méthode OnClick.

Ensuite, le code-ci dessous ne sert pas :
Code:

1 2 3 4 procedure TForm1.CheckBox1Click(Sender: TObject); begin CheckBox1.Checked:= not CheckBox1.Checked; end;
A chaque fois que tu vas cliquer sur ton CheckBox, tu vas toujours le désélectionner :)

Enfin, pour ton souci, à mon avis c'est la ligne :

Code:

CheckBox1.Parent:= StringGrid1;

qui semble poser souci... Faudrait voir pourquoi, mais la, je ne sais pas trop...
06/03/2010, 10h10
Jeankiki

Ben, je ne comprend pas non plus.
Si tu mets comme Parent, un button, une ListBox, un panel, etc..., ça fonctionne.

@Jeankiki

Bonjour,

Essai cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormCreate(Sender: TObject);
Var
  xrect: TRect;
begin
// On recupère les coordonnées de la cellule 1,1
    xRect.Left  := StringGrid1.CellRect(1,1).Left;
    xRect.Top   := StringGrid1.CellRect(1,1).Top;
    xRect.Right := StringGrid1.CellRect(1,1).Right;
    xRect.Bottom:= StringGrid1.CellRect(1,1).Bottom;
 
// Mais il est où le parent
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := xRect;
 
end;

Ensuite pour gérer le check (sinon quand tu clique dessus cela marche pas)
N'oublis pas de lier cet évenement avec ton checkbox

Code:

1
2
3
4
5
procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TCheckBox(sender).Checked := Not TCheckBox(sender).Checked;
end;

@Buzz : CellRect() renvoie un TRect donc pourquoi ne pas essayer un

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormCreate(Sender: TObject);
Var
  xrect: TRect;
begin
// On recupère les coordonnées de la cellule 1,1
    xRect := StringGrid1.CellRect(1,1);
 
// Mais il est où le parent
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := xRect;
 
end;

voire un :

Code:

1
2
3
4
5
6
7
8
9
procedure TForm1.FormCreate(Sender: TObject);
begin
// Mais il est où le parent
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := StringGrid1.CellRect(1,1);
 
end;

Citation:

Envoyé par archonte

@Buzz : CellRect() renvoie un TRect ...

Salut Archonte,

Comme cela il voit qu'il peut jouer avec la position comme il l'entend.

imagine qu'il veux le centrer, avec ta proposition il peut pas (sans caption)

Exemple avec centrage :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Var
  xrect: TRect;
begin
// On taille le check sans le caption
    CheckBox1.Width  := 17;
    CheckBox1.Height := 17;
 
// On recupère les coordonnées de la cellule 1,1 et on centre 
    xRect.Left  := StringGrid1.CellRect(1,1).Left +
    (StringGrid1.CellRect(1,1).Right - StringGrid1.CellRect(1,1).Left) Div 2
    - (CheckBox1.Width div 2);
    xRect.Top   := StringGrid1.CellRect(1,1).Top;
    xRect.Right := StringGrid1.CellRect(1,1).Right;
    xRect.Bottom:= StringGrid1.CellRect(1,1).Bottom;
 
// On place le Checkbox
    CheckBox1.Parent := StringGrid1;
    CheckBox1.BoundsRect := xRect;
end;

;)

Salut Buzz,

Citation:

Envoyé par BuzzLeclaire

@Jeankiki

Bonjour,

Essai cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormCreate(Sender: TObject);
Var
  xrect: TRect;
begin
// On recupère les coordonnées de la cellule 1,1
    xRect.Left  := StringGrid1.CellRect(1,1).Left;
    xRect.Top   := StringGrid1.CellRect(1,1).Top;
    xRect.Right := StringGrid1.CellRect(1,1).Right;
    xRect.Bottom:= StringGrid1.CellRect(1,1).Bottom;
 
// Mais il est où le parent
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := xRect;
 
end;

Ensuite pour gérer le check (sinon quand tu clique dessus cela marche pas)
N'oublis pas de lier cet évenement avec ton checkbox

Code:

1
2
3
4
5
procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TCheckBox(sender).Checked := Not TCheckBox(sender).Checked;
end;

As-tu testé le code ? Car chez moi ça ne fonctionne pas non plus :)

06/03/2010, 17h32
archonte

@BuzzLeclaire :

Citation:

Envoyé par BuzzLeclaire

Salut Archonte,
Comme cela il voit qu'il peut jouer avec la position comme il l'entend.
imagine qu'il veux le centrer, avec ta proposition il peut pas (sans caption)

:aie: Of course ... :aie: j'ai parlé trop vite !!:sm:
06/03/2010, 18h46
BuzzLeclaire

@ero-sennin

Citation:

As-tu testé le code ? Car chez moi ça ne fonctionne pas non plus :)

Oui cela fonctionne impeccable chez moi (DELPHI 2009)

@Archonte : NP :mrgreen:
06/03/2010, 19h38
archonte

Je viens de tester le code : chez moi, si tout le StringGrid est visible : pas de problème ;). Par contre si la colonne du CheckBox est non visible, alors lors du scroll toutes les colonnes suivantes sont "visuellement" munies d'un CheckBox, mais, en pratique, lorsque je clique dessus, il s'efface :calim2: ... Aurais-je encore oublié quelque chose :aie: ?

PS : 1 Form, 1 StringGrid, 1 CheckBox
06/03/2010, 21h15
ero-sennin

Citation:

Envoyé par BuzzLeclaire

@ero-sennin

Oui cela fonctionne impeccable chez moi (DELPHI 2009)

Bizarre bizarre! Je suis aussi sous D2009 pourtant :koi:
J'ai déposer un TStringGrid, un TCheckBox en dehors du TStringGrid, et j'ai copié collé ton code histoire de voir, et je ne passe jamais dans l'événement du TChechBox! Y a un truc qui m'échappe là :s

Salut @ero,

Moi cela fonctionne impeccable je viens de ré-essayé :

PS : Me dit pas que ta oublié d'affecté l'évenement à ton checkbox ?

Mon .pas

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TCheckBox(sender).Checked := Not TCheckBox(sender).Checked;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
Var
  xrect: TRect;
begin
// On taille le check sans le caption
    CheckBox1.Caption := '';
    CheckBox1.Width  := 17;
    CheckBox1.Height := 17;
 
// On recupère les coordonnées de la cellule 1,1 et on centre
    xRect.Left  := StringGrid1.CellRect(1,1).Left +
    (StringGrid1.CellRect(1,1).Right - StringGrid1.CellRect(1,1).Left) Div 2
    - (CheckBox1.Width div 2);
    xRect.Top   := StringGrid1.CellRect(1,1).Top;
    xRect.Right := StringGrid1.CellRect(1,1).Right;
    xRect.Bottom:= StringGrid1.CellRect(1,1).Bottom;
 
// On place le Checkbox
    CheckBox1.Parent := StringGrid1;
    CheckBox1.BoundsRect := xRect;
 
end;
 
end.

le DFM

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
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 439
  ClientWidth = 626
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid1: TStringGrid
    Left = 24
    Top = 16
    Width = 409
    Height = 201
    TabOrder = 0
  end
  object CheckBox1: TCheckBox
    Left = 24
    Top = 240
    Width = 97
    Height = 17
    Caption = 'CheckBox1'
    TabOrder = 1
    OnMouseDown = CheckBox1MouseDown
  end
end

Là j'ai juste mis à vide le caption du checkbox pour faire beau.

@ Archonte

Citation:

Je viens de tester le code : chez moi, si tout le StringGrid est visible : pas de problème . Par contre si la colonne du CheckBox est non visible, alors lors du scroll toutes les colonnes suivantes sont "visuellement" munies d'un CheckBox, mais, en pratique, lorsque je clique dessus, il s'efface ... Aurais-je encore oublié quelque chose ?

Tu cherche faire quoi exactement ? c'est plutot un autre sujet non ?

07/03/2010, 13h45
ero-sennin

Salut Buzz,

Bon, ba je ne sais pas ce que j'ai foutu hier, mais aujourd'hui ça fonctionne!
J'ai surement loupé un truc con... Ca arrive, mais là, pour le coup, ca devait vraiment être un truc trop trop facile à voir...

Par contre, ce qui est bizarre, c'est que le le OnClick ne fonctionne pas... On est obligé de passer par le OnMouseDown (ou OnMouseUp), qui lui appelle le click...

Enfin voilà ;)

Merci Buzz :D

Citation:

Ben, je ne comprend pas non plus.
Si tu mets comme Parent, un button, une ListBox, un panel, etc..., ça fonctionne.

C'est normal puisque TStringGrid n'accepte pas etre parent des controles lachés sur lui voire la proprité ControlStyle...ce que explique

Code:

CheckBox1.Parent := StringGrid1;

Citation:

Code:

1
2
3
4
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := xRect;

On peut faire en edition
cliquer sur Voir fiche comme texte "DFM"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  object StringGrid1: TStringGrid
    Left = 40
    Top = 72
    Width = 361
    Height = 193
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 0
  end
  object CheckBox1: TCheckBox
      Left = 80
      Top = 144
      Width = 97
      Height = 17
      Caption = 'CheckBox1'
      TabOrder = 0
      OnClick = CheckBox1Click
  end

par

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  object StringGrid1: TStringGrid
    Left = 40
    Top = 72
    Width = 361
    Height = 193
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 0
    object CheckBox1: TCheckBox
        Left = 80
        Top = 144
        Width = 97
        Height = 17
        Caption = 'CheckBox1'
        TabOrder = 0
        OnClick = CheckBox1Click
    end
  end

Bonsoir à tous,

Merci à vous tous pour votre aide. J'ai refais un test et il semblerait que ce code ne soit pas indispensable.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.FormCreate(Sender: TObject);
Var
  xrect: TRect;
begin
// On recupère les coordonnées de la cellule 1,1
    xRect.Left  := StringGrid1.CellRect(1,1).Left;
    xRect.Top   := StringGrid1.CellRect(1,1).Top;
    xRect.Right := StringGrid1.CellRect(1,1).Right;
    xRect.Bottom:= StringGrid1.CellRect(1,1).Bottom;
 
// Mais il est où le parent
    CheckBox1.Parent := StringGrid1;
 
// On place le Checkbox
    CheckBox1.BoundsRect := xRect;
 
end;

Le simple fait de mettre le code ci-dessous est suffisant :)

Code:

1
2
3
4
5
6
 
procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TCheckBox(sender).Checked := Not TCheckBox(sender).Checked;
end;

09/03/2010, 10h35
BuzzLeclaire

@Jeankiki,

n'oublis pas le petit résolu.

;)