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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
  CheckBox1.OnClick:=  CheckBox1Click;
Merci d'avance pour vos lumières