Discussion :

[monstroplante]

Bonjour,

Je crée dynamiquement des bouttons :

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;

Jusque la, tout va bien...

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 :

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;

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

Merci pour votre aide...

[Pedro]

Salut
Il te faut caster Sender lorsque tu le récupères. De plus tu ferais mieux d'utiliser la propriété Tag qui est là pour ce genre de choses :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.ClickBouton(Sender: TObject);
begin
  if Tbutton(TObject).Caption='Bouton1' then FaisCa;
  ...
end;

[monstroplante]

Exactement ce que je cherchais ! 8)

Merci !!