Discussion :

[tazthedev]

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]

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]

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

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

[tazthedev]

oubliez ca..

je me suis souvenu lol


if (Sender as TBsSkinPanel).Tag = 1 then
Showmessage('Click!');

[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) ?!?

[Graffito]

Bonjour

Code :

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

form1.panel.parent:=form2 ;

[tazthedev]

Bonjour

Code :

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

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 :

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

[edam]

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