OnClick sur un Panel créé dynamiquement.

Version imprimable

Salut tlm,

j'essai, pour passer le temps... :roll: de créer 3 panel dynamiquement.. no problemo..

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

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 ?

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

20/10/2006, 20h47
sjrd

+1, et dans DoClick tu peux utiliser le paramètre Sender pour savoir quel panel a déclenché l'événement.
20/10/2006, 21h02
tazthedev

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...
20/10/2006, 21h05
tazthedev

oubliez ca..

je me suis souvenu lol

if (Sender as TBsSkinPanel).Tag = 1 then
Showmessage('Click!');
20/10/2006, 22h48
tazthedev

hm... ok, ceci étant réglé..

comment faire pour faire afficher sur une autre form (form2) l'image du panel créé dynamiquement (sur form1) ?!?
20/10/2006, 22h53
Graffito

Bonjour

Code:

form1.panel.parent:=form2 ;

Citation:

Envoyé par Graffito

Bonjour

Code:

form1.panel.parent:=form2 ;

je m'étais peut-etre mal exprimé, mais ton code n'aurais possiblement pas fonctionner.

Quoiqu'il en soit, j'ai réussi en appliquant ce code...

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
 
procedure TForm1.DoClick(Sender: TObject);
begin
  //if (Sender as TBsSkinPanel).Tag = 0 then
      form2.Image1.Picture.Bitmap := ((Sender as TBSSkinPanel).Glyph) ;
      form2.ShowModal ;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
	panel : TBsSkinPanel ;
   btn : TBsSkinButton ;
   b : TButton ;
   i : integer ;
   x,y : integer ;
begin
 
   x := 0 ;
   y := 200 ;
 
   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 := DoClick ;  //
                 Glyph.LoadFromFile('C:\media1.bmp') ;  // Devra être changé, car   fichier loadé devra être la valeur d'un listbox.. 
 
     ......

21/10/2006, 01h07
edam

si sa dérange personne, je propose un code à moi :?