Discussion :

[Invité]

Bonjour,

Une Form1 ouvre une Form2

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 Application.CreateForm(TForm2, Form2);
 Form2.ShowModal;
 Form2.Free;
 Application.CreateForm(TForm2, Form2);
 Form2.Show;
end;

Comment puis-je savoir à partir de TForm2 que cette dernière a été ouverte en ShowModal et non par Show ?

Je suppose qu'il existe une réponse simple... Mais je ne la "vois" pas...

Cordialement. Gilles

[Invité]

Rebonjour,

Finalement, le code que j'essayais fonctionnait mais n'était pas placé au bon endroit :

Code :

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

1
2
3
4
5
6
7
procedure TForm2.FormShow(Sender: TObject);
begin
 if fsModal in TCustomForm(Sender).FormState then
  showmessage('Modale') 
 else 
  showmessage('Non modale');
end;

Je testais dans procedure TForm2.FormCreate(Sender: TObject); où là cela ne fonctionne pas...

Cordialement. Gilles