Discussion :

[alainvh]

Bonjour à toutes et tous.
Je souhaite créer un TCheckList dynamiquement depuis un événement OnClicK.
Le code suivant fonctionne :

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
19
20
21
22
23
24
25
26
27
28
 
var GroupCheckBox: TCheckListBox; // uses CheckLst !!!!;
    i,Nb_Items:integer;
begin
   ...............
 
  GroupCheckBox:=TCheckListBox.Create(Form1);
  with GroupCheckBox do
    begin
      Parent:=Form1;
      Name:='GroupCheckBox'; // redondant !!!
      Caption:='Genre';
      Color:=clSkyBlue;
      Left:=RadioGroupGenre.Left+50;
      Top:=RadioGroupGenre.Top;
      Width:=RadioGroupGenre.Width;
      Style:=lbOwnerDrawFixed;
      ItemHeight:=20;
    end;
 
  for i:=0 to Nb_Items-1 do
    begin
      GroupCheckBox.Items.Add(RadioGroupGenre.Items[i]);
    end;
  GroupCheckBox.Height:=(Nb_Items+1)*20;
 
...............
end;

Mais si j'essaie d'utiliser le composant créé depuis une autre procédure, par exemple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    if not GroupCheckBox.Items[i].Checked then

..., j'obtiens un vilain message à la compilation : Identificateur non déclaré : 'GroupCheckBox' ! J'ai donc essayé diverses pistes, dont le déplacement de la déclaration GroupCheckBox: TCheckListBox ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    GroupCheckBox: TCheckListBox // j'ai essayé Ici !!!
end;
 
var
  Form1: TForm1;
  GroupCheckBox: TCheckListBox // puis j'ai essayé Là !!!

... sans succès (presqu'un après-midi complet )
D'avance merci.
Alain

[ShaiLeTroll]

ne déclare GroupCheckBox qu'une seule et unique fois !

soit Private si juste pour l'intérieur de la fenêtre
soit Public si accesible depuis une autre unité !

le Name n'est pas obligatoire !

[alainvh]

Merci pour ta réponse, ShaiLeTroll.
J'ai opté pour Private, mais j'obtiens un nouveau message d'erreur : Type Record, Object ou Class requis (à la compilation de la même ligne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if not GroupCheckBox.Items[i].Checked then

[alainvh]

Désolé, mais j'ai de gros progrès basiques à réaliser .
Code erroné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if not GroupCheckBox.Items[i].Checked then

Bon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if not GroupCheckBox.Checked[i] then

Toutefois, j'avoue ne pas saisir le distinguo
Bon week-end.
Cordialement,
Alain

[Dr.Who]

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
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit22;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, CheckLst, StdCtrls, ExtCtrls;
 
type
  TFormMain = class(TForm)
    ButtonCheckList: TButton;
    RadioGroupGenre: TRadioGroup;
    procedure ButtonCheckListClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  public
    CheckList : TCheckListBox;
    procedure DoCheckListClick(Sender: TObject);
    procedure DoCheckListDblClick(Sender: TObject);
  end;
 
var
  FormMain: TFormMain;
 
implementation
 
{$R *.dfm}
 
procedure TFormMain.DoCheckListClick(Sender: TObject);
begin
  //
end;
 
procedure TFormMain.DoCheckListDblClick(Sender: TObject);
begin
  //
end;
 
procedure TFormMain.ButtonCheckListClick(Sender: TObject);
var N : integer;
begin
  if not assigned(fCheckList) then
  begin
    CheckList := TCheckListBox.Create(Self);
 
      CheckList.SetBounds(RadioGroupGenre.left+RadioGroupGenre.Width+4,
                           RadioGroupGenre.Top,
                           RadioGroupGenre.Width,
                           RadioGroupGenre.Height);
 
      CheckList.Color        := clSkyBlue;
      CheckList.Style        := lbOwnerDrawFixed;
      CheckList.ItemHeight   := 20;
 
      CheckList.OnClick      := DoCheckListClick;
      CheckList.OnDblClick   := DoCheckListDblClick;
 
      CheckList.Parent       := Self;
 
      CheckList.Items.Assign(RadioGroupGenre.Items);
      for N := 0 to CheckList.Count - 1 do
        CheckList.Checked[N] := true;
  end;
 
  (Sender as TButton).Enabled := not assigned(CheckList);
end;
 
procedure TFormMain.FormDestroy(Sender: TObject);
begin
  if Assigned(fCheckList) then
    CheckList.Free;
end;
 
end.

[alainvh]

Merci,Dr.Who.
Je vais potasser ton code pour essayer de progresser un peu dans ma compréhension de Delphi (il ne faut pas se contenter d'un pur et simple copier-coller de code )
Bon week-end.
Cordialement,
Alain