Discussion :

[mickael.be]

Salut!

Je voudrais détecter dans une form que j'ouvre via un BitBtn quel bouton l'a actionné.

Dans ma form1 j'ai :

Code :

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

1
2
3
4
5
 
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
bibliotheque.ShowModal;
end;

Dans ma Form Bibliotheque j'ai :

Code :

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

1
2
3
4
5
6
 
procedure TBibliotheque.FormShow(Sender: TObject);
begin
// test avec un ShowMessage!
ShowMessage(IntToStr(TBitBtn(Sender).Tag));
end;

Evidemment, j'ai précisé, Tag 1, 2, 3 dans mes boutons évidemment..

Voilà Merci !

[aityahia]

peut etre qu'il y a une autre méthode mais moi je te propose de déclarer
une variable publque exp: BtnInd dans ta fenetre Bibliothèque.

et de la mettre a jour avant l'appel du showModal

Code :

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

1
2
3
4
5
6
7
8
 
Procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Bibliotheque.BtnInd := (Sender as Tbitbtn).Tag
 
Bibliotheque.ShowModal;
 
end;

[mickael.be]

Merci.. je suis sur que ca marche (pas testé)

mais qu'en dises les autres ?
y'a pas une manière plus "propre" ?

Merci

[tourlourou]

pas testé, mais ça ne peut que marcher !
(pour ne pas déclarer d'autre variable, tu peux utiliser Bibliotheque.Tag)

le plus élégant serait sûrement de transmettre le Sender, mais il faudrait surcharger le ShowModal : si tu te sens de recoder la VCL...

[mickael.be]

Non, on va pas recoder la VCL

J'ai fais comme m'a dit aityahia, ca marche !

Merci !