Discussion :

[Ben_Le_Cool]

Bonjour,

Je voudrai afficher un message sans bloquer les autres traitements de mon application. Or MessageDlg et ShowMessage, bloque tout jusqu'à ce que je clique sur le bouton du message.
Y a t-il une solution, à part de créer un form spécialement pour afficher ces messages??
Voici un exemple:

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
 
procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
begin
  i:=0;
  While i<=50000 do
    Begin
      Label1.Caption:=IntToStr(i);
      Inc(i);
      Application.ProcessMessages;
    End;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('attente');
end;

Quand je clique sur Button2, le traitement lancé par Button1 s'arrête.

Merci.

::

[Hauwke]

Bonjour,
tu ne nous donnes pas beaucoup de précisions sur tes traîtements d'arrière plan.
As-tu pensé à utiliser les TThreads dans ton appli?
Si non, tu trouveras ton bonheur en bas de cette page
Cordialement,
Hauwke

[LadyWasky]

ShowMessage et MessageDlg affichent en effet des boites Modales, donc le déroulement du code est effectivement suspendu. Le mieux que tu ais à faire, c'est de construire ta boite de message avec une TForm que tu appelles avec Form1.Show par exemple. comme ça, le message est affiché, mais le code continue à se dérouler.

N'oublie pas de mettre la propriété FormStyle à fsStayOnTop pour qu'elle reste au dessus de ta fenêtre principale.

[Pedro]

As-tu pensé à utiliser les TThreads dans ton appli?

+1
Si tu fais un TThread, tu rends le traitement indépendant... Donc un affichage Modal ne bloquera pas le traitement...

[LadyWasky]

Sinon, je viens de voir ça :
CreateMessageDialog(constMsg:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons):TForm;

Ca te crée automatiquement une boite de Dialogue à partir d'une TForm et au lieu d'utiliser ShowModal, tu utilse Show; tout court

[sjrd]

Regarde aussi et plus simplement l'API MessageBox. Il y a un flag à passer pour que ce ne soit pas modal. Voir l'aide pour plus d'infos.

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
begin
  i:=0;
  While i<=50000 do
    Begin
      Label1.Caption:=IntToStr(i);
      Inc(i);
      Application.ProcessMessages;
    End;
end;

si tu remplasse ce bout de code dans un timer au lieu de mettre une boucle je pance qu'avec un timer sa sebloq pas , non??

[lil_jam63]

Tu t'y prend mal, si tu veux faire un système d'attente, commence par créer un fiche qui va te servir de dialogue d'attente en dérivant de TForm par exemple.
Puis utilise les threads si tu as des calculs ou autre qui peuvent durer longtemps.
Sinon pour faire plus simple, crée une autre fiche dans ton projet que tu va appeler frmStandBy par exemple et affiche là avant les calculs et cache la à la fin des calculs.