Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Showmessage configurable (https://www.clubdelphi.com/foros/showthread.php?t=61063)

Marwuinh 23-10-2008 21:25:05

Showmessage configurable
 
saludos; de verdad los felicito por la pagina es la mejor de la WEB en delphi. Tengu una consulta.

Al presionar un boton se ejecuta una accion que tengo destinada a ello.

ahora como hago para que al presionar ese boton salga un mensage diciendo algo como ('esta seguro que desea hacer eso?') y si el usuario presiona en la Opcion SI se ejecute la accion de lo contrario haga caso omiso a la presion del boton.

TOPX 23-10-2008 21:33:38

Saludos,

Se puede hacer con MessageDlg, por ejemplo:

Código Delphi [-]
  if MessageDlg('esta seguro que desea hacer eso?', mtConfirmation, [mbYesNoCancel], 0) = mrYes then
  begin
    // Ejecutar la acción destinada para ello
  end;

Marwuinh 23-10-2008 21:45:00

Muestra error
 
Gracias, pero El codigo que mencionaste muestra un error sabes que sera?

TOPX 23-10-2008 21:47:28

Al no saber qué error muestra, nop.

egostar 23-10-2008 22:02:39

Cita:

Empezado por Marwuinh (Mensaje 321946)
Gracias, pero El codigo que mencionaste muestra un error sabes que sera?

Cita:

Empezado por TOPX (Mensaje 321947)
Al no saber qué error muestra, nop.

Yo creo que es esto mbYesNoCancel.

Las opciones de boton son solo estas:

Código Delphi [-]
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbHelp);

Por lo que seria algo asi

Código Delphi [-]
  if MessageDlg('¿Estas seguro de salir?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    //:(
  end
  else begin
         //:)
  end;

Salud OS

Marwuinh 23-10-2008 22:03:25

Asi quedo
 
Código Delphi [-]
if MessageDlg('esta seguro que desea hacer eso?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin
 //ejecutar la aacion destinada para ello
end

TOPX 23-10-2008 22:05:37

Cita:

Empezado por egostar (Mensaje 321949)
Yo creo que es esto mbYesNoCancel.

Gracias :cool:


La franja horaria es GMT +2. Ahora son las 22:44:31.

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