événement sur composants dynamiques

Version imprimable

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:

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:

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 :aie:

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

Code:

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 !

Code:

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;

29/06/2006, 17h37
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
29/06/2006, 17h40
slimjoe

Citation:

Envoyé par kirua2150

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 :)

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:

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.