showmessage con si y no

[dec]

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]]

Empezado por dec

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,

[[Gabo]]

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

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

[Khronos]

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

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