aide sur les checkbox

Version imprimable

14/05/2009, 13h59
kroma23

aide sur les checkbox

salut
jai une table amie(numero,nom,loisire);
jai poser 3 checkebox dans ma form,le premier contient le mot 'sport' le deusieme contient 'cinema' le troisieme 'music'.
alors le champs loisire il va contenire ce que je coche,par exemple si je coche sport et cinema le champ loisire va contenire sport,cinema..etc
mon probleme je c pas comment faire cette procedure,est ce que vous pouvez m'aider svp

Bonjour,

Si vous désirez tester si une table est modifiable tester le state de celle ci.
Code:

1 2 3 4 5 6 7 8 9 10 // si pas d'enregistrement existant --> création if Datasource.RecordCount = 0 then Datasosurce.Insert; // si enregistrement non modificable (non en edit ou insertion) --> je l'ouvre if not Datasource.state in [dsEdit, DsInsert] then Datasource.Edit; // Maintenant la table est modifiable
Ensuite modifier votre champs.
Les données ne seront enregistré qu'aprés que vous ayer fait un poste sur la table.

salut,
je pense que c'est ça que tu cherches:

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
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
edit1.Text:=CheckBox1.Caption;
end;
 
if CheckBox2.Checked then begin
edit1.Text:=CheckBox2.Caption;
end;
 
if CheckBox3.Checked then begin
edit1.Text:=CheckBox3.Caption;
end;
 
if (CheckBox1.Checked and CheckBox2.Checked) then begin
edit1.Text:=CheckBox1.Caption+' et '+CheckBox2.Caption;
end;
 
if (CheckBox1.Checked and CheckBox3.Checked) then begin
edit1.Text:=CheckBox1.Caption+' et '+CheckBox3.Caption;
end;
 
if (CheckBox2.Checked and CheckBox3.Checked) then begin
edit1.Text:=CheckBox2.Caption+' et '+CheckBox3.Caption;
end;
 
if (CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked)  then begin
edit1.Text:=CheckBox1.Caption+','+CheckBox2.Caption+' et '+CheckBox3.Caption;
end;
end;

a+

NABIL74