MessageBox Temporaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 139 fois - Téléchargée 6 fois

Contenu du snippet

const 
  MB_TIMEDOUT       = $7D00; 
 
function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar; uType: 
  UINT; wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; external 
  user32 name 'MessageBoxTimeoutA'; 
 
implementation 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  BoxResult : Integer; 
  BoxFlags  : Integer; 
begin 
  BoxFlags := MB_YESNO or MB_SETFOREGROUND or MB_SYSTEMMODAL or 
    MB_ICONINFORMATION; 
  BoxResult := MessageBoxTimeout(Application.Handle, 
                 'Ce message se fermera au bout de 5 secondes.', 
                 'Teste', BoxFlags, 0, 5000); 
  case BoxResult of 
    IDYES: 
      ShowMessage('Oui'); 
    IDNO: 
      ShowMessage('Non'); 
    MB_TIMEDOUT: 
      ShowMessage('Temps écoulé'); 
  end; 
end; 


Compatibilité : Delphi 5

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.