showmessage con si y no

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