OnClick sur un Panel créé dynamiquement.

**tazthedev** · 20/10/2006, 19h21

Salut tlm,

j'essai, pour passer le temps...

de créer 3 panel dynamiquement.. no problemo..

mais comment le attribuer l'événement OnClick ?!?

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
   for i:=0 to 2 do begin
		panel := TBSSkinPanel.Create(self);
   	with panel do try
   		Parent := form1 ;
         panel.Tag := i ;
      	left := 100 ;
      	top :=  y ;
      	height := 100 ;
      	width := 100 ;
   		Visible := true;
   		SkinData := bsSkinData1 ;
   		panel.Caption := inttostr(panel.tag) ;
      	SkinDataname := 'groupbox';
      	CaptionMode := true;
      	checkedmode := true;
         RollUpMode  := true ;
     //    OnClick := MyOnClick(sender) ;
         // := MyOnClick(i) ;
   	finally
   	//	free;
   	end;

La ligne que j'avais... OnClick := MyOnClick(sender) ; ne fonctionnait pas, alors je l'ai mise en commentaire.

Comment faire ??!? Je dois rediriger le OnClick de Delphi, vers ma nouvelle procedure.. mais comment faire ? Et puis, une fois ceci réglé, je dois savoir lequel de ces 3 panels a été clické pour exécuter le code lui correspondant..

Quelqu'un a une idée ?

**slimjoe** · 20/10/2006, 19h33

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
procedure TForm1.DoClick(Sender: TObject);
begin
  Showmessage('Click!');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  for i := 0 to 2 do
  begin
    panel := TBSSkinPanel.Create(self);
    with panel do
    begin
      Parent := form1;
      panel.Tag := i;
      left := 100;
      top := y;
      height := 100;
      width := 100;
      Visible := true;
      SkinData := bsSkinData1;
      panel.Caption := inttostr(panel.tag);
      SkinDataname := 'groupbox';
      CaptionMode := true;
      checkedmode := true;
      RollUpMode := true;
      OnClick := DoClick;
    end;
  end;
end;

**sjrd** · 20/10/2006, 20h47

+1, et dans DoClick tu peux utiliser le paramètre Sender pour savoir quel panel a déclenché l'événement.

**tazthedev** · 20/10/2006, 21h02

je l'avais presque finalement...

ma procédure ne fonctionnait pas car je mettais.. OnClick := MyOnClick(Sender);

))

Mais pour le sender...
je me souvenais que le sender était le composant qui appelait la procédure... mais comment lui dire ... si c'est le 2eme panel qui est clické, fait ci. .. l'autre.. fait ca... et ainsi de suite...

sender suivit d'un . (point) ne m'apporte pas beaucoup d'options dans son menu.. alors, .. je me demande quoi faire par la suite...