Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   showmessage con si y no (https://www.clubdelphi.com/foros/showthread.php?t=49671)

douglas 26-10-2007 17:40:06

showmessage con si y no
 
buenos dias personas y amigos del ofor, miren aqui como siempre tratando de aliviar mi ignorancia, mi duda es aunque la verdad no se el nombre, como sacar un mensaje como tipo show message que contenga dos botones y que diga lo siguiente 'desea procesar' y los botones si y no, perdon por las molestias, pero me pueden hacer el favor de indicar como puego y lograr esto, y como poder capturar esa respuesta en una variable, de antemano agradezco a toda aquella persona que pueda ayudarme.

que Dios los bendiga y otorge exitos en sus labores de este dia.

dec 26-10-2007 17:47:22

Hola,

Puedes usar la función "MessageDlg", y si no recuerdo mal también "MessageBox". Por ejemplo:

Código Delphi [-]
If (MessageDlg('¿Quieres casarte conmigo?', 
 mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
  // Sí; quiero
else
begin
  // Esto... bueno... yo...
end;

:)

eduarcol 26-10-2007 17:47:40

Código Delphi [-]
if MessageDlg('¿Desea Procesar?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
   //Si desea procesar
end
else
begin
   //No desea procesar
end;

se me adelanto DEC :D:D

eduarcol 26-10-2007 17:48:43

Cita:

Empezado por dec (Mensaje 241431)
Hola,

Puedes usar la función "MessageDlg", y si no recuerdo mal también "MessageBox". Por ejemplo:

Código Delphi [-]
If (MessageDlg('¿Quieres casarte conmigo?', 
 mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
begin
  // Sí; quiero
else
begin
  // Esto... bueno... yo...
end;

:)

No hagas esa pregunta que como te diga que si luego no puedes correr, :D:D

Gabo 26-10-2007 18:08:32

Aquí la versión para C++Builder usando el MessageBox y poniendo por defecto el botón NO:

Código:


if (MessageBox(this->Handle, "¿?", "Pregunta" , MB_APPLMODAL | MB_DEFBUTTON2+MB_YESNO | MB_ICONQUESTION))
  {
      return;
  }


Khronos 27-10-2007 21:57:42

Algo un poco mas practico seria con una variable de tipo word pero es lo mismo :D.


Código Delphi [-]
 
var
respuesta: word;
begin 
respuesta:= MessageDlg('¿Salir sin guardar?', mtConfirmation, [mbYes, mbNo, mbCancel], 0); 
If respuesta=mrYes then begin
//lo que sea
end;
 
If respuesta=mrNo then begin
//....
end;
 
If respuesta=mrCancel then begin
//---
end;
 
end;

Salu2


La franja horaria es GMT +2. Ahora son las 23:15:16.

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