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.

::