Discussion :

[PadawanDuDelphi]

Bonjour à tous,

Voici mon problème...
J'ai une fiche principale form1 qui ouvre une fiche secondaire form2.
Sur Form2 j'ai plusieurs Bitbtn, qui ont tous des fonctionnalités différentes, mais qui ont tous aussi pour effets de fermer cette Form2. Ma form1 doit réaliser des opérations différentes en fonction du bitbtn cliqué...

Est-il possible de récupérer une variable me retournant le composant cliqué en dernier sur Form2?

Merci.

@+.

[qi130]

Tu peux peut-être jouer avec le modal result en affectant une valeur Mr* différente pour chaque bouton de Form2. (s'il n'y en a pas trop )

Alors, dans Form1, tu peux tester le ModalResult (mrOK, mr....)

[hy00ga]

Personellement je créerai des procedures dans la form1 qui doivent faire ce qu'elles doivent faire. Et dans la Form2, quand j'appuye sur un bouton j'appelerai directement la procedure qui est dans Form1 avant de quitter. En gros :

Dans Form1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Procedure Action1();
begin
  // ce que tu veux
end;
 
Procedure Action2();
begin
  // ce que tu veux
end;

et dans ta Form2 quand tu appuye sur les boutons :

Code :

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

1
2
3
4
5
6
 
Procedure Form2.btn1Click(Sender : TObject);
begin
  Form1.Action1();
  Form2.close();
end;

Enfin tu vois le genre ...

[Cl@udius]

Salut,

La méthode de qi130 est visiblement la plus simple, donc si tu n'as pas trop de boutons sur ta Form2, je te conseille également cette méthode.

Dans le cas où tu as un nombre important de boutons (est-ce d'ailleurs raisonnable ?), tu peux définir une propriété 'ClickedButton' dans Form2 qui te renverra le bouton sur lequel tu as cliqué.

Je pars bien sûr sur l'hypothèse que ta form est appelée avec ShowModal.

Form2 contient 4 boutons (Button1 à Button4) avec ModalResult = mrOK, et un bouton (ButtonCancel) avec ModalResult = mrCancel.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ButtonCancel: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    { Déclarations privées }
    FButton: TButton;
  public
    { Déclarations publiques }
    property ClickedButton: TButton read FButton;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.ButtonClick(Sender: TObject);
begin
  FButton := TButton(Sender);
end;
 
end.

Les 4 boutons sont reliés à la procédure ButtonClick.

Form1 (Form appelante)

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
16
17
18
19
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  try
    with Form2 do begin
      if ShowModal = mrOK then
        ShowMessage('Bouton cliqué: ' + ClickedButton.Name);
    end;
  finally
    FreeAndNil(Form2);
  end;
end;

Et voilou !
@+

[PadawanDuDelphi]

Tout d'abord merci bocoup pour votre aide...

En effet, la méthode de hy00ga me parait un peu plus dur à mettre en oeuvre (surtout que ma forme2 peut être appelée par d'autres forms).

Je vais utiliser la méthode de QI130, car je n'est que 4 bitbutton, donc c'est tout à fait adapter.

Un dernier point, il peut m'arriver d'avoir le cas Form1 ouvre Form2, et Form2 ouvre Form3 (qui elle aussi a des TButton, 2 en l'occurence). Puis-je récupérer directement les modal result de ma Form3 à ma form1, ou dois-je passer par une variable intermediaire sur ma form2?

Merci.

@+.

[Cl@udius]

Re,

La valeur ModalResult de la Form3 sera récupérée au niveau de son appel, donc sur Form2.
Il va effectivement devoir que tu fasses redescendre cette valeur vers Form1.

@+

[PadawanDuDelphi]

C'est ce qu'il me semblait, mais je voulais m'en assurer auprès de pros...

Encore un problème de résolu,
merci bocoup pour votre aide.

@+.