showmessage con si y no

[douglas]

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]

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

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

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