Fermer la boîte de dialogue Delphi après [x] secondes

Est-il possible d'obtenir Delphi pour fermer un ShowMessage ou MessageDlg Dialogue après un certain laps de temps?

Je veux afficher un message à l'utilisateur, lors de l'arrêt de l'application, mais ne veux pas arrêter l'application à partir de l'arrêt pendant plus de 10 secondes.

Puis-je obtenir la boîte de dialogue par défaut de fermer après un temps défini, ou ai-je besoin d'écrire mon propre forme?

source d'informationauteur Dan Kelly

10

Votre application est en fait encore de travail lors d'une boîte de dialogue modale ou le système de la boîte de message ou similaire est active (ou si un menu est ouvert), c'est juste qu'une deuxième boucle de message est en cours d'exécution qui traite tous les messages, tous les messages envoyés ou publiés, et il fera la synthèse (et processus) WM_TIMER et WM_PAINT messages lorsque nécessaire.

Donc il n'y a pas besoin de créer un thread ou de sauter à travers toutes les autres cerceaux, il vous suffit de programmer le code qui ferme la boîte de message pour être exécuté après ces 10 secondes se sont écoulées. Une façon simple de le faire est d'appeler SetTimer() sans cible HWNDmais une fonction de rappel:
```
procedure CloseMessageBox(AWnd: HWND; AMsg: UINT; AIDEvent: UINT_PTR;
  ATicks: DWORD); stdcall;
var
  Wnd: HWND;
begin
  KillTimer(AWnd, AIDEvent);
  // active window of the calling thread should be the message box
  Wnd := GetActiveWindow;
  if IsWindow(Wnd) then
    PostMessage(Wnd, WM_CLOSE, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  TimerId: UINT_PTR;
begin
  TimerId := SetTimer(0, 0, 10 * 1000, @CloseMessageBox);
  Application.MessageBox('Will auto-close after 10 seconds...', nil);
  // prevent timer callback if user already closed the message box
  KillTimer(0, TimerId);
end;
```
Erreur de manipulation oublié, mais ce devrait vous obtenir a commencé.

Vous pouvez essayer de le faire avec un standard de la boîte de dialogue de Message. Créer le dialogue avec CreateMessageDialog procédure de Dialogues et après ajouter les contrôles dont vous avez besoin.

Dans un formulaire avec un TButton définir onClick:

procedure TForm1.Button1Click(Sender: TObject);
var
  tim:TTimer;
begin
  // create the message
  AMsgDialog := CreateMessageDialog('This is a test message.',mtWarning, [mbYes, mbNo]) ;
  lbl := TLabel.Create(AMsgDialog) ;
  tim := TTimer.Create(AMsgDialog);
  counter := 0;

  // Define and adding components
  with AMsgDialog do
   try
    Caption := 'Dialog Title' ;
    Height := 169;

    // Label
    lbl.Parent := AMsgDialog;
    lbl.Caption := 'Counting...';
    lbl.Top := 121;
    lbl.Left := 8;

    // Timer
    tim.Interval := 400;
    tim.OnTimer := myOnTimer;
    tim.Enabled := true;

    // result of Dialog
    if (ShowModal = ID_YES) then begin
      Button1.Caption := 'Press YES';
    end
    else begin
      Button1.Caption := 'Press NO';
    end;
   finally
    Free;
   end;
end;

La propriété OnTimer comme ceci:

procedure TForm1.MyOnTimer(Sender: TObject);
begin

  inc(counter);
  lbl.Caption := 'Counting: ' + IntToStr(counter);
  if (counter >= 5) then begin
    AMsgDialog.Close;
  end;
end;

De définir les variables et la procédure:

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    AMsgDialog: TForm;
    lbl:TLabel;
    counter:integer;
    procedure MyOnTimer(Sender: TObject);
  end;

Et de le tester.

La forme se fermer automatiquement lorsque le compte à rebours final, le compte à Rebours. Semblables à cela, vous pouvez ajouter d'autres types de pièces.

Fermer la boîte de dialogue Delphi après [x] secondes

Ce qui concerne.

7

OK. Vous avez 2 choix:

1 - Vous pouvez créer votre propre MessageDialog forme. Ensuite, vous pouvez l'utiliser et ajouter un TTimer qui va fermer le formulaire quand vous le voulez.

2 - Vous pouvez continuer à l'utiliser showmessage et de créer un thread qui va utiliser la fonction FindWindow (pour trouver le messadialog de la fenêtre), puis le fermer.

Je vous conseille de l'utiliser vous propre Forme avec une minuterie. Sa plus propre et plus facile.

Essayez ceci:

function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar;
  uType: UINT; wLanguageId: WORD; dwMilliseconds: DWORD): integer;
  stdcall; external user32 name 'MessageBoxTimeoutA';

J'ai été en utilisant ce assez pour un certain temps; il fonctionne un régal.

0

J'ai pensé à utiliser un thread séparé, mais elle va probablement vous obtenir dans beaucoup de code inutile etc. Boîtes de dialogue Windows n'étaient tout simplement pas fait pour cela.

Que vous devriez faire votre propre formulaire. Sur le bon côté, vous pouvez avoir un code personnalisé/INTERFACE utilisateur avec un compte à rebours comme chronométrés les boîtes de dialogue ne.
0

Pas. ShowMessage et MessageDlg sont à la fois des fenêtres modales, ce qui signifie que votre application est en fait suspendu alors qu'ils sont affichés.

Vous pouvez concevoir votre propre remplacement de la boîte de dialogue qui dispose d'une minuterie. Dans le FormShow cas, activer le minuteur, et dans le FormClose cas de le désactiver. Dans l'événement OnTimer, désactiver le minuteur, puis fermez le formulaire lui-même.

Vous pouvez brancher l'Écran.OnActiveFormChange événement et l'utilisation de l'Écran.ActiveCustomForm si c'est un intéressées forme que vous souhaitez pour le raccordement de la minuterie pour le fermer

{code}
procedure abz.ActiveFormChange(Sender: TObject);
var
   Timer: TTimer;
begin
  if (Screen.ActiveCutomForm <> nil) and //valid form
     (Screen.ActiveCutomForm.Tag = 0) and //not attached a timer yet
     (Screen.ActiveCutomForm.ClassName = 'TMessageForm') //any interested form type check
    then 
  begin
    Timer := TTimer.Create(Screen.ActiveCutomForm); // let the form owned so it will be freed
    Timer.Enabled := False;
    Timer.Tag := Integer(Screen.ActiveCutomForm); // keep track to be used in timer event
    .... setup any timer interval + event
    Screen.ActiveCutomForm.Tag := Integer(Timer);
    Timer.Enabled := True; 
  end;
end;
{code}

profiter de

Cela fonctionne très bien avec windows 98 et newers...

Je n'utilise pas le "MessageBoxTimeOut" parce que les vieux windows 98, ME, ne l'a pas...

cette nouvelle fonction, qui fonctionne comme un "CHARME"..

//ajouter cette procédure

procedure DialogBoxAutoClose(const ACaption, APrompt: string; DuracaoEmSegundos: Integer);
var
Form: TForm;
Prompt: TLabel;
DialogUnits: TPoint;
ButtonTop, ButtonWidth, ButtonHeight: Integer;
nX, Lines: Integer;
function GetAveCharSize(Canvas: TCanvas): TPoint;
var
I: Integer;
Buffer: array[0..51] of Char;
begin
for I := 0 to 25 do Buffer[I]          := Chr(I + Ord('A'));
for I := 0 to 25 do Buffer[I + 26]    := Chr(I + Ord('a'));
GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
Result.X := Result.X div 52;
end;
begin
Form       := TForm.Create(Application);
Lines   := 0;
For nX := 1 to Length(APrompt) do
if APrompt[nX]=#13 then Inc(Lines);
with Form do
try
Font.Name:='Arial';     //mcg
Font.Size:=10;          //mcg
Font.Style:=[fsBold];
Canvas.Font    := Font;
DialogUnits    := GetAveCharSize(Canvas);
//BorderStyle    := bsDialog;
BorderStyle    := bsToolWindow;
FormStyle         := fsStayOnTop;
BorderIcons      := [];
Caption          := ACaption;
ClientWidth    := MulDiv(Screen.Width div 4, DialogUnits.X, 4);
ClientHeight    := MulDiv(23 + (Lines*10), DialogUnits.Y, 8);
Position          := poScreenCenter;
Prompt             := TLabel.Create(Form);
with Prompt do
begin
Parent          := Form;
AutoSize       := True;
Left             := MulDiv(8, DialogUnits.X, 4);
Top             := MulDiv(8, DialogUnits.Y, 8);
Caption       := APrompt;
end;
Form.Width:=Prompt.Width+Prompt.Left+50;  //mcg fix
Show;
Application.ProcessMessages;
finally
Sleep(DuracaoEmSegundos*1000);
Form.Free;
end;
end;

////////////////////////////Comment L'Appeler//////////////////

DialogBoxAutoClose ("Alerte", "Ce message sera fermé dans les 10 secondes',10);

/////////////////////////////////////////////////////////

0

MessageBox appelle cette fonction en interne et passer 0xFFFFFFFF comme paramètre de délai d'expiration, de sorte que la probabilité de retrait est minime (merci à Maurizio)
0

Meilleur moyen est d'utiliser un stayontop forme et de gérer un compteur à disparaître à l'aide de la alfpha mélange propriété de la forme, à la fin du comte il suffit de fermer la forme, mais
le contrôle est passé à l'actif de contrôle nécessaires avant l'affichage du formulaire, de cette façon, l'utilisateur aura un message qui disparaît automatiquement et l'habitude de prévenir l'utilisation de la fonction suivant, très cool truc pour moi.
-1

Vous pouvez faire cela avec WTSSendMessage.

Vous pouvez le trouver dans la JWA bibliothèquesou composez vous-même.

Vous devez vous connecter pour publier un commentaire.