Discussion :

[looping]

bonjour,


Soit 3 fiches "Form1" , "Form2" et "Form3".


la fiche 3 est appelée de deux manières différentes:

soit de la fiche 1
ou soit de la fiche 2

dans les deux cas j'utilise "form3.showmodal"

voici ma question: une fois que ma "form3" est ouverte, est ce que je peux connaitre la fiche appelante (fiche 1 ou fiche 2) ?

j'aessaye de le faire en passant un paramètre entre chaque "form" mais il y a peut etre plus simple ?

merci

[DOLPat®]

Bonjour

Dans le même style, tu peux utiliser propriété Tag de la fiche:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Form3.Tag:=1 // Form1
  Form3.ShowModal;
 
...
  Form3.Tag:=2 // Form2
  Form3.ShowModal;
 
// Dans Form3
  case Tag of
    1: Caption:='Fiche appelante: Form1';
    2: Caption:='Fiche appelante: Form2';
  end;

[tourlourou]

Je pense que le plus propre est d'encapsuler le Form3.ShowModal dans une fonction (ShowFormMachin) exposée dans la partie interface de l'unité concernée, et qui prend un paramètre d'entrée judicieux (on n'a pas forcément d'un Sender car Form3 n'a pas forcément à connaître Form1 ni Form2) pour différencier le traitement.

soit, grosso modo, si Form3 est créée automatiquement :

Code :

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

1
2
3
4
5
6
function ShowFormMachin(ATraitement: TTypeTraitement): integer;
begin
  Form3.QuiMAppelle:=ATraitement;
  Form3.ShowModal;
  Result:=Form3.ModalResult;
end;

[EDIT] grillé ! je ne proposais pas ça comme plus propre que ce que DolPat propose

[DenDemble]

il existe aussi la propriété PopupParent
(peut être pas dans anciennes versions de Delphi)
ça évite d'avoir à créer une propriété spécifique,

Code :

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

1
2
Form3.PopupParent := Form1;
Form3.ShowModal;

Mais ça reste bien moins élégant que le Tag cité plus haut.

Cependant dans mon code (sous D2007), affecter PopupParent
évite un bug (rare et aléatoire) où la fiche, pourtant appelée avec ShowModal
reste coincée derrière la fiche appelante.