Bonjour,
Je crée dynamiquement des bouttons :
Jusque la, tout va bien...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 for i:=0 to StringList.Count-1 do with TJvNavPanelButton.Create(Self) do begin name:='Bt_Game'+inttostr(i); Caption := StringList[i]; Parent := SBGames; Align := alTop; height:=18; font.Style:=[]; HotTrackFont.style:=[]; StyleManager := NPStyle1; onclick:=bt_loadgameclick; oncontextpopup:=bt_delgameclick; end;
Le probleme c'est qu'il faut que chaque boutton effectue une action differente.
Or, je veux leur assigner dans la propriété "onclick" la meme procedure mais pouvoir y utiliser leur propriété "caption" pour agir celon sa valeur.
J'ai retourner le probleme dans tous les sens mais je ne vois pas comment récuperer ce parametre...
Je pensait simplement utiliser "sender.caption" mais sender est un Tobject et je ne peut donc pas acceder aux propriétés de mon TJvNavPanelButton.
J'ai meme éssayé de faire un tableau :
Je voulait le renseigner au moment de la création de l'objet pour retrouver la chaine en fonction de l'objet mais je n'arrive meme pas à renseigner la valeur "Bt:Tobject".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 type TBtGameInfo = {packed} record GameNane:String; Bt:Tobject; end; var BtGameInfos:array of TBtGameInfo;
Merci pour votre aide...
Partager