Discussion :

[kirua2150]

Bonjour à tous,

Je lie dans mon programme plusieurs composants que je crée dynamiquement à un meme événement et j'aimerais connaitre la meilleure méthode pour récupérer le composant déclencheur. Pour être plus précis :
- je crée mes composants dynamyques

Code :

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

1
2
3
4
5
 
   // FTabBtns est un tableau de button, je leur donne un nom unique
    FTabBtns[wi] := TJvXPButton.Create(self);
    FTabBtns[wi].Name := 'btn'+inttostr(wcle);
    FTabBtns[wi].OnClick := actionsClick;

- interception de l'événement onclick (qui est aussi lié avec un composant non dynamique, btnenregistrer)

Code :

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

1
2
3
4
5
6
7
8
 
procedure TfrmDonneesClient.actionsClick(Sender: TObject);
begin
if(sender = btnEnregistrer) then begin
   //traitement
  end
else begin
...

Dans les ..., j'aimerais pouvoir récupérer le bouton déclencheur de l'événement et notamment la clé qu'il possède dans son nom (un entier)

J'espere que j'ai été assez clair c'est pas facile à expliquer

[slimjoe]

Je sais pas si ça répond à ta question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TfrmDonneesClient.actionsClick(Sender: TObject);
begin
  if Sender = btnEnregistrer then 
  begin
    //traitement
  end
  else if Sender is TJvXPButton then 
  begin
    with Sender as TJvXPButton do
       Showmessage(Name); //Mettre traitement ici :)
  end;

Bon dev !

[tourlourou]

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
procedure TfrmDonneesClient.actionsClick(Sender: TObject);
var
  wcle: integer;
  s: string;
begin
  if sender is TJvXPButton
    then s:=TJvXPButton(Sender).Name
    else s:='btn-1';
  wcle:=StrToInt(Copy(s, 4, Length(s)-3));
  case wcle of
    btnEnregistrer:  begin
                           //traitement
                          end;
  else begin ... end;
  end;

[kirua2150]

ouai ca m'aide mais comment récupérer le nombre contenu dans le Name?

J'ai pas trop le choix je pense, il faut que je fasse une fonction qui récupère
les derniers caractères du nom.
Yaurait-pas une méthode plus simple me permettant de stocker ma clef à la création du composant pour la récupérer facilement ensuite?

ah j'avais pas vu le dernier message. Je vais utiliser le découpage de la chaine pour récupérer la clef.

merci à vous deux

[slimjoe]

Yaurait-pas une méthode plus simple me permettant de stocker ma clef à la création du composant pour la récupérer facilement ensuite?

merci à vous deux

Utilise la propriété Tag de ton bouton

[couiss]

Salut,

en uses tu ajoutes la librarie : StrUtils
en variable globale tu ajoutes : var ObjNameF2,ObjNumF2:string;

puis voici un exemple de procédure :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm2.mod_civ(ObjSender:TObject);//Modification d'un champ DB
begin
  ObjNameF2:=TSpeedButton(ObjSender).Name;//Récupération du nom du bouton
  ObjNumF2:=MidStr(ObjNameF2,11,4);//Extraction du numéro du bouton, le numéro du bouton commence au 11ème caractère du nom du bouton
  conn1.ADOQuery1.SQL.Clear;
  conn1.ADOQuery1.SQL.Add('SELECT * FROM table WHERE id='+ObjNumF2);//Utilisation du numéro pour connaitre l'id de l'enregistrement à modifier
  conn1.ADOQuery1.Open;
  edit1.Text:=conn1.ADOQuery1.FieldValues['texte'];//Affichage du texte à modifier
end;

Perso à la création de mes boutons je leur affecte l'id de l'enregistrement DB auquel ils correspondent...

J'espère que cela vous aidera.

A bientôt, Couiss.