Discussion :

[Jlmat]

Bonsoir,

J'ai créé ce post mais j'ai résolu le problème sur un exemple simple mais pas dans mon application.
Voici donc le problème et le bout de code qui semble fonctionner en théorie

1. Est-il possible qu'une FORM_1 apelle une FORM_2 et que cette dernière demande ensuite la fermeture de FORM_1 tandis que FORM_2 est toujours active ?

FORM_1 est la fiche appelante
FORM_2 est la fiche appelée.
Remarque: il ne faut pas que la Form appelante soit la FORM 1 car sinon, c'est toute l'application qui se termine.

Je voudrais que la fiche Appelée se lance lorsque FORM_1 le demande et se ferme une fois que FORM_2 est lancée.

2. Si cela est viable, dans qu'elle événement de la Fiche appelée dois-je mettre la demande de fermeture de la FORM_1?
Dans mon exemple, je l'ai mis dans activate, je ne sais pas si c'est bien ici qu'il, faut la mettre.

Voici la capture d'écran et le code qui va avec:

En arrière plan (Fond Bleu nuit de la Fiche principale)

Et le code qui va avec de la Fiche appelante sur Fond jaune:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
 var H : THandle;
begin
  H := FindWindow(nil,'FICHE APPELEE 2');
  if H = 0
    then Application.CreateForm(TForm2,Form2)
    else showmessage('La fiche existe déjà!');
end;

et de la fiche appelée (fond bleu clair):

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
procedure TForm2.FormCreate(Sender: TObject);
 var H : THandle;
begin
  H := FindWindow(nil,'FICHE APPELANTE 1');
  if H = 0 then
  begin
    Left := Screen.Width div 2 - Width div 2;
    Top  := Screen.Height div 2 - Height div 2;
  end else
  begin
    Left   := Form1.Left + Form1.ClientWidth div 2 - Width div 2;
    Top    := Form1.Top  + 130;
  end;
end;
 
procedure TForm2.FormActivate(Sender: TObject);
 var H : THandle;
begin
  H := FindWindow(nil,'FICHE APPELANTE 1');
  if H <> 0 then
  begin
    if Form1.CheckBox1.Checked then Form1.Close;
  end;
end;

3. Quand je transpose ce code dans mon Application, J'ai une erreur OverStackFlow dans l'activate de la Fiche appellée! Là, je sèche...

Je suis preneur de vos remarques!

Bonne soirée
jlmat

[Paul TOTH]

la fiche principale d'une application Delphi est particulière, si elle se ferme c'est tout l'application qui se ferme.

tu ne peux donc pas fermer la fiche principale.

dans un projet qui veux imiter le fonctionnement des fenêtre de Chrome je me suis amusé à créer une fiche principale vide qui contient un TFrame, si une fiche secondaire veux fermer la fiche principale, c'est la fiche secondaire qui est détruite et la fiche principale reprend sa place avec son TFrame

en gros j'ai Form1 + TFrame1 et Form2 + TFrame2 et quand Form2 veux fermer Form1, je détruis Frame1, je positionne Form1 au même endroit que Form2, je change le parent de TFrame2 pour le mettre dans Form1 et finalement c'est Form2 que je détruit...c'est un peu sioux mais ça marche

[Jlmat]

Merci Paul pour ta réponse qui a été influencée en partie je pense par une erreur dans mon énoncé

Remarque: il ne faut pas que la Form appelante soit la FORM 1 car sinon, c'est toute l'application qui se termine.

C'est ce que j'ai fait dans l'exemple que j'ai donné et ça marche. La Fiche principale n'est pas FORM_1, elle s'appelle MainForm et appelle en réalité FORM_1.

Il faut donc d'après ce que tu dis que ma Form_1 et Form_2 soient des conteneurs de Form_1 et Form_2. Je n'ai jamais utilisé les TFrame. Je trouve que ça complique... Je vais étudier le TFrame pour voir l'avantage...

mer(ci

[SergioMaster]

Bonjour,

une autre technique envisageable est le docking de forme qui, en gros, fait la même chose que la technique "frames"

[tourlourou]

Si la fiche à fermer ne peut être recréée après sa fermeture, autant mettre le code la fermant dans le Create de la fiche appelée, plutôt que dans un événement appelé à chacune de ses activations.

Ensuite, le code cherche la fiche par son nom, et s'il le trouve, exploite la variable Form1. C'est un peu un mélange des genres !

On pourrait imaginer une fiche appelée au Create surchargé pour accepter un paramètre supplémentaire qui serait la référence de la fiche appelante, et des fonctions CallBack dans les 2 fiches : l'une qui supprimerait cette référence dans la fiche appelée lors de la libération de la fiche appelante, et l'autre qui interrogerait la fiche appelante pour savoir si elle doit la libérer et connaître ses positions.

[foetus]

On pourrait imaginer une fiche appelée au Create surchargé pour accepter un paramètre supplémentaire qui serait la référence de la fiche appelante, et des fonctions CallBack dans les 2 fiches

Peut-être que je me trompe, mais ce genre de techniques peut être difficile à maintenir
Parce que l'avantage d'une "fiche", c'est d'être réutilisable. Et lorsque le diagramme appelé/ appelant devient un plat de spaghettis rien qu'avec un petit nombre de "fiches" (5 - 6), il faut réfléchir autrement.

J'avais vu aussi une autre technique : surcharger l'événement OnCloseQuery (<- lien docs.embarcadero en anglais)
En gros, avant de fermer une fiche, tu décides si tu la fermes ou pas ... et ainsi mettre le code de @Paul TOTH. Mais attention, si l'événement prend trop de temps, l'utilisateur va croire que la "fiche" ne ferme pas/ plante.

[Paul TOTH]

en fait je ne comprend pas bien ton problème, j'ai donc créé un projet avec 3 fiches dont seule Form1 est crée automatiquement (c'est la fiche principale)

sur Form1 j'ai mis un bouton

Code :

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

1
2
3
4
5
6
7
8
 
uses
  Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := Tform2.Create(Application);
  Form2.Show;
end;

sur Form2 j'ai mis aussi un bouton avec une première solution immédiate, je ferme Form2 après avoir créé Form3

Code :

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

1
2
3
4
5
6
7
8
9
10
 
uses
  Unit3;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form3 := TForm3.Create(Application);
  Form3.Show;
  Release; // première solution
end;

on notera que j'utilise Release car nous sommes dans une méthode de Form2, et la libérer directement pourrait lui couper l'herbe sous les pieds

sinon j'ai repris ton code OnActivate

Code :

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

1
2
3
4
5
6
7
 
uses Unit2;
 
procedure TForm3.FormActivate(Sender: TObject);
begin
  FreeAndNil(Form2); // deuxième solution
end;

attention, il ne faut pas faire le deux en même temps sinon on tente de détruire une fiche déjà libérée, délivrée, qui ne mentira plus jamais...oups je m'égare

quand une fiche ne possèdent qu'une seule instance (sinon la variable globale Form2 n'est pas utilisable) j'aime bien ajouter ceci comme garde fou

Code :

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

1
2
3
4
5
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  Form2 := nil;
end;

[Jlmat]

Merci Paul pour tes explications très claires. ça fonctionne!
Désolé pour le retard de ma réponse. Avec ce confinement, je prends un peu de temps à nouveau pour continuer la programmation de mon projet...
Du coup, je développe un petit exemple que je mettrai en post dans cette discussion avec différentes options d'ouvertures et fermetures de fiches