Discussion :

[Dereck07]

Bonjour,

Dans mon Form1 je crée des GroupBox. Et j'aimerai recuperer le nom du GroupBox sur le quel je click avec ma souris. Le souci c'est que je ne peux pas créer d'evemement prédefini du type TForm1.GroupBox1Click puisque a l'initialisation de mon programme les GroupBox ne sont pas encor créé.

Voila comment je les cré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
15
16
17
18
19
20
21
22
23
24
25
26
27
 
procedure TForm1.Button1Click(Sender: TObject);
var
box:  tGroupBox;
box2: tGroupBox;
 
begin
 
box:= tTForm1.FormClickCreate(form1);
box.Parent := form1;
box.Left:= 100;
box.Top:= 100;
box.Height:=50;
box.Width:=50;
box.Caption:='Box1';
box.Visible:= true;
 
box2:= tTForm1.FormClick.Create(form1);
box2.Parent := form1;
box2.Left:= 200;
box2.Top:= 100;
box2.Height:=50;
box2.Width:=50;
box2.Caption:='Box2';
box2.Visible:= true;
 
end;

Mon idée c'est d'utiliser un évenement on TForm1.FormClick puis de regarder si y a un Groupbox a cette endroit. Comment faire sachant que je connais pas les noms de tous les GroupBox contenu dans mon Form1 puisqu'au final il pourait en avoir d'autre crée...
Je rappelle la question. lol
Comment faire pour connaitre le nomme d'un GroupBox quand je click dessu avec ma souris?

[Cl@udius]

Salut

Le souci c'est que je ne peux pas créer d'evemement prédefini du type TForm1.GroupBox1Click puisque a l'initialisation de mon programme les GroupBox ne sont pas encor créé.

Tu peux très bien associer un évènement OnClick lors de la création dynamique des GroupBox.
Et Dans l'event OnClick travailler avec le Sender pour savoir sur quel GroupBox tu as cliqué.

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
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure GroupBoxClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TGroupBox.Create(Self) do
  begin
    Parent := Self;
    Name := 'GroupBox1';
    Left:= 100;
    Top:= 100;
    Height:=50;
    Width:=50;
    Caption:='Box1';
    OnClick := GroupBoxClick;
  end;
 
  with TGroupBox.Create(Self) do
  begin
    Parent := Self;
    Name := 'GroupBox2';
    Left:= 200;
    Top:= 200;
    Height:=50;
    Width:=50;
    Caption:='Box2';
    OnClick := GroupBoxClick;
  end;
end;
 
procedure TForm1.GroupBoxClick(Sender: TObject);
begin
  if not (Sender is TGroupBox) then Exit;
  ShowMessage(TGroupBox(Sender).Name);
end;

@+ Claudius

[Dereck07]

Merci claudius pour ta reponse.
Ta solustion me parait trés interessante.

Comment je fait pour indiquer a delphi qu'il doit appeler la procedure procedure GroupBoxClick(Sender: TObject) lorsque je clique sur un GroupBox?

Pour poser la question differement, comment je fait pour associer un évènement OnClick lors de la création dynamique des GroupBox?

[Cl@udius]

L'association se fait au moment de la création.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  with TGroupBox.Create(Self) do
  begin
    Parent := Self;
    Name := 'GroupBox1';
    Left:= 100;
    Top:= 100;
    Height:=50;
    Width:=50;
    Caption:='Box1';
    OnClick := GroupBoxClick;
  end;

@+

[Dereck07]

Désolé claudius, Mais ca ne marche pas.
Voila comment je l'ai implémanté:

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
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure GroupBoxClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
 
{$R *.dfm}
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
box2: tGroupBox;
 
begin
box2:= tGroupBox.Create(form1);
box2.Parent := form1;
box2.Left:= 200;
box2.Top:= 100;
box2.Height:=50;
box2.Width:=50;
box2.Caption:='Box2';
box2.Visible:= true;
OnClick := GroupBoxClick;
end;
 
procedure TForm1.GroupBoxClick(Sender: TObject);
begin
Label1.Caption:='test';
end;
 
end.

Voila ce qui se passe: Tant que je n'ai pas cré box2 et que je clique dans form1 il ne se passer rien. Mon évenement n'ai pas appeller. --> ceci est normal.
Ensuite, je crée Box2. Et si je clique dessu. Il ne se passe toujours rien. Parcontre si je clicque dans le form1 (pas sur box2), là l'événement est généré. (il y a 'test' qui se marque dans la label1).

Etrange, non?

[Cl@udius]

Re,

Code :

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

1
2
  box2.OnClick := GroupBoxClick

Là tu avais associé l'évènement OnClick à la Form.

@+