Discussion :

[steph1969]

Bonjour,

après avoir parcouru différents message et tuto et ne trouvant pas de solution je me permet de poser ce problème :

Soit un application avec une fiche principale FormMain : TFormMain.
Une fiche secondaire Form1 : TForm1 qui sera dynamiquement créée et affichée dans via un clic sur bouton de FormMain

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFormMain.BitBtnStartOnClick 
 
 Var Form1 : TForm1
  Form1 := TForm1.Create( self );
  Try 
   Form1.ShowModal ;
  Finally 
   Form1.Free
 end;
end;

Depuis Form1 qui est donc en show modal, je voudrai ouvrir une troisième fiche Form2 qui serait Visible et Active mais tout en pouvant continuer à interagir sur Form1... je place donc dans mon code quelque par dans Form1 :

Code :

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

1
2
 
 Form2.Show

la fiche s'affiche bien, mais celle-ci est inactive (son Bing si l'on clique dessus)... Form1 reste bien active.

Par contre si je place un bouton dans Form1, et dans l'évènement OnClick de celui-ci de Form2.Show, cela fonctionne ... la fenêtre Form2 est acessible ainsi que Form1 .

Je ne comprend donc pas la différence de comportement du même code en fonction qu'il soit dans un évènement OnClick ou dans une procédure lié à des exécutions interne (Timer, ...).

Merci pour vos idées ...

[Rayek]

Pour faire simple, toute fenêtre de l'application créée avant un ShowModal ne sera pas accessible.

[ShaiLeTroll]

Si tu le fais dans le OnClick d'un TButton, et que tu ne fais QUE cela !
Cela réagit immédiatement, c'est tout à fait normal !

Les Messages Form2 doivent être géré par la fenêtre Modale (le code est assez monstreux, ça détourne les messages)

Si tu es un peu plus curieux sur la remarque de Rayek :
En fait au moment du ShowModal cela inhibe les fenêtre DEJA ouverte via un appel à DisableTaskWindows,
cela boucle sur les messages, puis lorsque tu ferme la fenêtre,
cela rend la main aux autres fenêtres avec EnableTaskWindows

Mais les fenêtres créées APRES ShowModal n'ont pas été "inhibées" et sont donc accessibles !

.... je place donc dans mon code quelque par dans Form1 ...

Par contre si je place un bouton dans Form1, et dans l'évènement OnClick de celui-ci de Form2.Show, cela fonctionne ... la fenêtre Form2 est acessible ainsi que Form1 .

Quelle est la différence, c'est toujours dans Form1 !
Voulais-tu souligner l'utilisation différent de Form2 ??? ?
- soit juste dans un Bouton de Form1
- soit dans un gros code de Form1


Si tu fais le Show dans une fonction qui fait autre chose ensuite, cela ne gère pas les messages :
- soit tant que ta fonction n'a pas fini de travailler
- soit jusqu'au prochain appel à Application.ProcessMessages().

Pour le cas du Timer, celui-là, disons qu'il a un contexte d'éxecution un peu particulier que je n'ai jamais très bien compris, idem, c'est un message qui provoque son execution, si tu as une boucle dans un OnClick ou similaire, le TTimer ne réagira plus au WM_TIMER
C'est d'ailleurs pour cela qu'il faut attention à l'utilisation de Application.ProcessMessages() qui provoque des ré-entrance !

Un Test simple :
un Timer qui affiche l'heure toute les 10 ms

Deux Boutons

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
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Now());
  Label1.Refresh(); // Force le Dessin sans attendre le traitement des Messages !
end;
 
procedure TForm1.BtnForBlock(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 10000000000 do;
end;
 
procedure TForm1.BtnForNotBlock(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 100000000 do
    Application.ProcessMessages();
end;

Idem, une TForm pourrra s'afficher (et encore) mais restera figé si tu as un long calcul après son affichage !



Tu peux aussi avoir une différence de ZOrder selon D7 ou D2006

[steph1969]

Bonjour et merci pour vos réponses ...

je pense avoir compris d'où venait mon problème ... dans le cas ou cela ne fonctionne pas, le Form2.Show se déclenche dans des appels provenant du Form1.OnCreate ... donc le Form1.ShowModal est réalisé après.

Dans le cas n° avec un bouton dans Form1, forcément cela se passe après le ShowModal ...

Finalement c'était simple ... fallait juste savoir que Showmodal "vérouille" les autre fenêtre ... et que l'ordre des opération à de l'importance

Y-a-t'il une fonction windows capable de "restauré" l'état de mafenêtre Form2 après le ShowModal ... du genre :
WinReactiveWindow( Form1.Handle, ... )

[steph1969]

Finalement j'utilise le OnShow de Form1 pour afficher la Form2 ... cela fonctionne

Merci encore.