Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   enviar un mensaje y que se auto cierre (https://www.clubdelphi.com/foros/showthread.php?t=75325)

pmtzg 14-08-2011 00:08:55

enviar un mensaje y que se auto cierre
 
hola compañeros
deseo preguntarles si ustedes conocen alguna funcion o algo
para lo que deseo hacer , es muy simple pero no le encuentro, bueno eso creo


que una aplicación que estoy haciendo deseo enviar un mensaje al usuario
pero que dure 2 a 4 segundos y despues se cierre


hay algo asi en delphi que pueda hacer


gracias

ecfisa 14-08-2011 00:43:21

Hola pmtzg.

Fijate si te sirve así:
Código Delphi [-]
....
function MessageBoxTimeOut(hWnd: HWND; lpText: PChar; lpCaption: PChar; uType: UINT; 
      wLanguageId: WORD; dwMilliseconds: DWORD): Integer; stdcall; external user32 name 'MessageBoxTimeoutA';

procedure TForm1.Button1Click(Sender: TObject);
begin
   MessageBoxTimeout(Application.Handle,
     'La aplicación se cerrará en unos segundos...','',
     MB_SYSTEMMODAL or MB_TOPMOST or MB_ICONINFORMATION, 0, 4000); // 4000 = 4 seg
   Application.Terminate;
end;

Saludos.

pmtzg 14-08-2011 07:25:56

mi estimado ecfisa mil gracias !!!!!!!!!!!!!!!!111111

me sirvio de maravilla era lo que estaba buscando


mi agradeciemiento :D:D:D:D:D

Manuel 12-09-2017 21:43:19

Sería mucho pedir que visualizará los segundos que faltan para cerrar el mensaje?

Ñuño Martínez 19-09-2017 12:11:26

Cita:

Empezado por Manuel (Mensaje 521022)
Sería mucho pedir que visualizará los segundos que faltan para cerrar el mensaje?

Creo que para eso habría que crear un TForm a medida con un TTimer.


La franja horaria es GMT +2. Ahora son las 07:54:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi