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 ?