Discussion :

[Wilco]

Bonjour à tous et meilleurs voeux pour 2008.


A partir de la fenêtre principale de mon application, j'ouvre une fenêtre avec le code suivant :

Code :

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

1
2
3
4
5
procedure Tform1.CLIDblClick(Sender: TObject);
begin
     Application.CreateForm(Tform2, form2);
     form2.Show;
end;

Lorsque la fenêtre fille est fermée par l'utilisateur, je voudrais récupérer l'évênement onclose ou onHide depuis la form appelante (form1).

Quelqu'un peut il me dire comment je peux faire ?

Merci d'avance
Wilco

[kevinou55]

je ne sais pas si j'ai bien compris ton probleme mais je pense que j'ai une solution.
Il te suffit de faire : Form1.onClose:=Form2.onClose;

moi ca ne me renvoie pas d'erreur quand je l'execute...

En esperant t'avoir aidé...

Kevin

[rsc]

Il suffit que Form2 dans son Onclose et Onhide, signale à Form1 ce qu'il est en train de faire, non ? A moins qu'une subtilité ne m'ait échappé ?

[Wilco]

Merci pour vos réponses

Il suffit que Form2 dans son Onclose et Onhide, signale à Form1 ce qu'il est en train de faire, non ?

oui mais cela m'oblige à insérer un Uses form1 dans le code de form2 : Ce que je veux éviter.

N'y a til pas moyen d'écrire un évenement dans Tform1 qui récupérerait celui de la form2 ?

[rsc]

A part un Timer qui teste régulièrement l'existence et l'état de Form2, je ne vois pas... mais je ne connais tout non plus

[Tardiff Jean-François]

Bonjour

Vous pouvez essayer d'ajouter des property déclenchés dans vos formes filles.

Dans la forme fille ajouter en published;

Code :

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

1
2
3
 
Property NotifywhenOnClose: TNotifyEvent read FNotifywhenOnClose write FNotifywhenOnClose;  
// Ne pas oublier d'ajouter FNotifywhenOnClose: TNotifyEvent; en private

Dans le on close de la forme fille mettre

Code :

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

1
2
3
 
  if Assigned(NotifywhenOnClose) then
    NotifywhenOnClose(Self);

Et lorsque vous créer votre forme fille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure Tform1.CLIDblClick(Sender: TObject);
begin
     Application.CreateForm(Tform2, form2);
     form2.NotifywhenOnClose := ParentForm_NotifywhenOnClose;
     form2.Show;
end;
 
procedure Tform1.ParentForm_NotifywhenOnClose(Sender: TObject);
begin
  // quand la forme fille est fermer vous executer le OnClose de cette forme
  // Le onClose test if Assigned(NotifywhenOnClose) et declenche l'evenement
  // ParentForm_NotifywhenOnClose reçois l'évènement (Attention l'evenement OnCLose n'est pas Encore terminer. Il est en cour) avec Self comme forme fille
end;

Même principe pour OnShow, Onhide, OnDelete etc. (Sauf on create naturellement)

Cela permet d'avoir l'évènement On... Dans la forme fille, tous en déclenchant un evenement dans la forme Parent.

[rsc]

C'est une bonne idée !

[Wilco]

Merci 1000 fois Jean-François ...
ça fonctionne.