fenetre en arriere planRésolu

Question

Bonjour à tous, 

apres des recherches infructueuses, je m'adresses aux expert Delphi.

Pour faire simple mon probleme est les suivant : mon application gere des calculs assez long et j'ai donc creer une form avec un texte simple ("en cours de traitement")

Cette fenetre s'affiche au début du traitement et se ferme a la fin, redonnant la main a la fentre appelante.
hors lorsuq ecette dernière se referme, la fenetre appelante se retrouve en arriere plan et il faut cliquer dans la barre des taches pour la faire revenir au premier plan.

Voici la procedure d'appel :

Procedure BloquerFenetre(Fenetre : TForm; Indicateur : string);
begin
    if Indicateur = 'B' then begin
        Fenetre.Enabled := false;
        Form_Wait.Show;
    end else if Indicateur = 'D' then begin
        Form_Wait.close;
        Fenetre.Enabled := true;
    end;
end;

et l'appel de la procedure : 

procedure TForm_Principale.ConnectClick(Sender: TObject);
begin


    BloquerFenetre(Form_Principale,'B');



.... mon traitement....


    BloquerFenetre(Form_Principale,'D');
end;

Pour info la fenetre d'attente et la fenetre appelante ont la propriété suivante :

WindowsState : WsNormal

Merci d'avance pour votre aide ...

Guillemouze · Accepted Answer

essaye ca:

procedure TForm_Principale.ConnectClick(Sender: TObject);
begin    BloquerFenetre(Form_Principale,'B');

.... mon traitement....

 		    BloquerFenetre(Form_Principale,'D');

    Self.BringToFront;
end;

totolito3535 · Answer

génial merci beaucoup

Fenetre en arriere plan

2 réponses

Votre réponse

Discussions similaires