Discussion :

[Ethmane]

Salut tout le monde
voilà, j'ai une application de calcul de paie dont le traitement dure un certain temps (environ 20mn). le calcul est lancé à partir, disons de Form1, j'affiche une Form2 qui indique la progression (FormStyle: fsStayOnTop). le problème est que l'utilisateur peut cliquer sur la Form1. Y a-t-il moyen d'empecher la possibilité d'afficher Form2 en ShowModal sans pour autant bloquer le traitement.
Merci

[Pedro]

Salut
Eventuellement, il serait plus simple de faire le calcul dans Form2 par exemple
Tu initialises d'abord Form2 avec les données de Form1 nécessaires au calcul et lorsque Form2 s'affiche, le calcul est lancé.
Il y a d'autres moyens mais celle-ci est une des plus simples à mettre en oeuvre

[Dede99]

Salut tout le monde
voilà, j'ai une application de calcul de paie dont le traitement dure un certain temps (environ 20mn). le calcul est lancé à partir, disons de Form1, j'affiche une Form2 qui indique la progression (FormStyle: fsStayOnTop). le problème est que l'utilisateur peut cliquer sur la Form1. Y a-t-il moyen d'empecher la possibilité d'afficher Form2 en ShowModal sans pour autant bloquer le traitement.
Merci

Bonjour,

Une solution serait dans la form1 :

...
form2.show;
form2.repaint;
...

dans la form2 :

procedure TForm2.FormShow(Sender: TObject);
begin
Form1.Enabled := False;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Enabled := True;
end;

inconvénient : pendant mon traitement dans Form1 (compteur pour passer le temps), la barre de progression dans la form2 évolue mais la form2 elle même n'est pas "accessible".

Qui dit mieux ?

[Droïde Système7]

Bonjour,

Peut-être avec cet appel, a essayer :

Code :

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

TForm2.Create(Application).Show;

De cette façon, ta form2 est en Show "presque" Modal, mais tu as la main sur ta form1 qui n'est donc pas bloquée...

Enfin... si à cette heure, ce n'est pas moi qui débloque

[Ethmane]

il n'est pas possible de mettre le traitement dans Form2 car c'est un écran de progression que j'utilise dans plusieur écran.
il m'est aussi impossible de jouer sur la propriété Enabled car c'est une application MDI et même en parcours les MdiChild il reste à bloquer la Form principale.
Et le

TForm2.Create(Application).Show;

ne marche pas.
Merci quand même