Discussion :

[animalx123]

Bonjour,

Je crée des tlabel dynamiquement selon les enregistrements de ma bdd et le problème est que je veux affecter un événement onClick à chaque label. Je me suis documenté sur google et j'ai trouvé qu'il faut ajouter l'événement dans la déclaration publique mais ça ne marche pas. Voici mon code :
jai declarer la procedure dans la classe de la forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
type
  TForm5 = class(TForm)
    ComboBox1: TComboBox;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    ADOTable2: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    Procedure clicktitre  (Sender: TObject);{mon evenement onclick}

et la création des composants dynamiquement avec l'événement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
xx:=85   ;
for  i:=1 to self.ADOTable1.RecordCount do
   begin
  with tlabel.Create(self)do
      begin
        parent:=self;
        caption:=self.ADOTable1.FieldValues['titre']  ;
        top:=xx;
        left:=32;
        onclick:=pclicktitre ;{l'evenement}
      end;
     self.ADOTable1.Next;
     xx:=xx+10;
    end;

et quand j'utilise la procédure comme suit:

Code :

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

1
2
3
4
procedure tform5.clicktitre(sender:tobject);
  begin
    form4.showmodal;
  end;

j'ai une erreur qui me dit :

[dcc32 Erreur] Unit5.pas(108): E2070 Directive inconnue : 'tform5'


merci de vos réponse.

[FChrisF]

Je dirais qu'il manque probablement une partie des infos ou du code pour détecter l'erreur ...

Voici un exemple très simple (pour Free Pascal/Lazarus) - cf. fichier attaché pour le projet :

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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure LabelClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var T: TLabel;
var i: integer;
begin
  for i:=1 to 9 do
    begin
      T := TLabel.Create(self);
      T.Caption := 'Label ' + IntToStr(i);
      T.Left := 10;
      T.Top := 10 + (20*i);
      T.OnClick := @LabelClick;     // without '@' for Delphi, or FPC in Delphi mode
      T.Parent := self;
    end;
  Button2.Enabled := false;         // to not create labels twice
end;
 
procedure TForm1.LabelClick(Sender: TObject);
begin
  ShowMessage(TLabel(Sender).Caption + ' clicked');
end;
 
end.

*** Edit ***

Après relecture, il semble que vous utilisiez plutôt Delphi. Voici donc également le même projet exemple en Delphi 7.

[animalx123]

ya quelque probleme dans l'ouverture du projet car je suis sous delphi xe3 mais apres lecture du code plusieurs fois c'est identique la declaration , les parametres
je vois pas d'ou vien l'erreur du tform5

[FChrisF]

Essayez déjà par changer:

Code :

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

1
2
 
     onclick:=pclicktitre ;{l'evenement}

en ceci:

Code :

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

1
2
 
     onclick:=clicktitre ;{l'evenement}

Si cela ne fonctionne toujours pas après correction de cette erreur, c'est probablement qu'il y a une autre erreur ailleurs: "end" ou "forward" manquant, directive incomplète, ponctuation incorrecte (';' manquant par exemple), etc. ...

Enfin bref, quelque chose d'autre qui "perturbe" le compilateur.

[animalx123]

jai verefier le code plusieurs fois il est juste mais cette erreur sort de nulpar, voici tout le code j'espere que vous m'aideriai

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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
 
unit Unit5;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, Data.Win.ADODB;
 
type
  TForm5 = class(TForm)
    ComboBox1: TComboBox;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DataSource2: TDataSource;
    ADOTable2: TADOTable;
    Procedure clicktitre(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
 
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.dfm}
 
uses Unit4;
 
procedure TForm5.ComboBox1Change(Sender: TObject);
var
cat,tit:string;
i,xxx,n,y:integer;
lst_lab :array of tlabel;
begin
 if y<>0 then
     begin
for i := 0 to y do
  begin
    lst_lab[y].Destroy;
    lst_lab[y].Free;
  end;
      end;
xxx:=85;
n:=1;
y:=0;
 cat:=combobox1.Items.Text;
 self.ADOQuery1.Prepared:=true;
self.ADOQuery1.SQL.Text:='select title from discution d inner join cathegorie '+
'c on d.id_cat=c.id_cat where'+cat+'=nom_cat';
self.ADOQuery1.ExecSQL;
 
for i:=0 to self.ADOQuery1.DataSetField.FieldCount-1  do
begin
 inc(y);
 setlength (lst_lab,y+1);
 lst_lab[y]:=   tlabel.Create(self)   ;
  with lst_lab[y]  do
    begin
      Parent :=self;
      caption:=self.ADOQuery1.Fields.DataSet.Fields.ToString;
      top:=  xxx;
      left:=32;
      name:='lab'+ inttostr(n);
      tag:=y;
    end;
    self.ADOQuery1.Next;
    xxx:=xxx+10;
    n:=n+1;
end;
 
 
 
end;
 
procedure TForm5.FormCreate(Sender: TObject);
var i,xx:integer;
begin
 
if self.ADOTable2.RecordCount <>0 then
for i := 1 to self.ADOTable2.RecordCount -1 do
  begin
    self.ComboBox1.Items.add(self.ADOTable2.FieldValues['nom_cat'] ) ;
    self.ADOTable2.Next;
 
  end;
xx:=85   ;
for  i:=1 to self.ADOTable1.RecordCount do
   begin
  with tlabel.Create(self)do
      begin
        parent:=self;
        caption:=self.ADOTable1.FieldValues['titre']  ;
        top:=xx;
        left:=32;
        onclick:=clicktitre ;
      end;
     self.ADOTable1.Next;
     xx:=xx+10;
    end;
 
  procedure TForm5.clicktitre(sender:tobject);
  begin
    form4.showmodal;
 
  end;
 
 
end;
 
end.

[Papy214]

Code :

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

1
2
3
4
5
6
 
  procedure TForm5.clicktitre(sender:tobject);
  begin
    form4.showmodal;
 
  end;

qu'est-ce que ce bout de code fait dans le formcreate ??

[animalx123]

vraiment c'est une erreure bete car je suis nouveau sur delphi ,je l'ai sortie de la procedure formcreate et ca marche merci de votre aide

[Papy214]

ça arrive même aux meilleurs

[Andnotor]

Si ton code était mieux indenté, ça te sauterait au yeux

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
      left := 32;
      onclick := clicktitre;
    end;
    self.ADOTable1.Next;
    xx := xx + 10;
  end;
end;

  procedure TForm5.clicktitre(Sender: TObject);
  begin
    form4.showmodal;

  end;

end;

end.

EDIT: Oups ! Déjà réglé ! C'est ça d'ouvrir une discussion et de vaquer à d'autres occupations