Discussion :

[dleu]

Mon problème : une Form est appelée par deux boutons différents situés sur deux forms différentes.

Comment puis-je, dans l'événement OnActivate de la form appelée, quel bouton a été cliqué ?

Merci de votre aide.

Didier

[MD Software]

une Form est appelée par deux boutons différents

Qu'est-ce que tu entends par appelé ?
ShowModal ?
Show ?
... ?

[dleu]

une Form est appelée par deux boutons différents

Qu'est-ce que tu entends par appelé ?
ShowModal ?
Show ?
... ?

Par ShowModal. Form3 peut être ouverte par un clic sur le bouton1 de la Form1 ou par un clic sur le bouton2 de la Form2. Ce que je voudrais savoir, c'est comment faire pour, lors de l'activation de la Form3, savoir quel est le bouton qui a été cliqué.

Merci de ton aide.

[MD Software]

Il faut que tu redéfinisse la méthode ShowModal pour qu'elle accepte en paramètre le sender.
Voici un exemple (non testé) :

Code :

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

1
2
3
4
5
6
7
8
function TForm3.ShowModal(Sender : TObject) : integer;override;reintroduce;
begin
  //fait un traitement en fonction du sender
  if ((Sender as TButton).name='BP_Bouton1') then
    beep;
  //appel à la méthode d'origine
  result := inherited.ShowModal;
end;

[dleu]

Ah, super.

Merci. Je teste ça au plus vite.

[Ben_Le_Cool]

Une autre solution plutot simple:

Sur le Onclick de ton button1, tu mets: Form3.Tag:=1;

Sur le Onclick de ton button2, tu mets: Form3.Tag:=2;

Sur le Onshow de ta form3, il suffit de lire la valeur de Form3.tag

[MD Software]

Une autre solution plutot simple:

Sur le Onclick de ton button1, tu mets: Form3.Tag:=1;

Sur le Onclick de ton button2, tu mets: Form3.Tag:=2;

Sur le Onshow de ta form3, il suffit de lire la valeur de Form3.tag

Tout a fait

[Ben_Le_Cool]

Puisqu'un membre chevronne a valide cette solution, alors un tag resolu est recommande

[dleu]

Une autre solution plutot simple:
Sur le Onclick de ton button1, tu mets: Form3.Tag:=1;
Sur le Onclick de ton button2, tu mets: Form3.Tag:=2;
Sur le Onshow de ta form3, il suffit de lire la valeur de Form3.tag

Merci, difficile de faire plus simple en effet.

Allez hop, [Résolu].

Merci à vous deux.