[Delphi 7] Déclaration d'un composant dynamique

Version imprimable

Bonjour à toutes et tous.
Je souhaite créer un TCheckList dynamiquement depuis un événement OnClicK.
Le code suivant fonctionne :
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 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:

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:

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 :oops:)
D'avance merci.
Alain

05/02/2010, 18h58
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 !
05/02/2010, 19h12
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:

1 2 if not GroupCheckBox.Items[i].Checked then
05/02/2010, 21h14
alainvh
Désolé, mais j'ai de gros progrès basiques à réaliser :oops:.
Code erroné :
Code:

1 2 if not GroupCheckBox.Items[i].Checked then
Bon code :
Code:

1 2 if not GroupCheckBox.Checked[i] then
Toutefois, j'avoue ne pas saisir le distinguo :(
Bon week-end.
Cordialement,
Alain

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
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.

06/02/2010, 09h25
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