Hola,
Bueno. Algo así podría valer:
Código Delphi
[-]
case MessageDlg('Desea Capturar Otra Orden de Servicio ?', mtConfirmation, [mbYes, mbNo], 0) of
mrYes:
begin
ShowMessage('Pulsaste el botón mbYes');
end;
mrNo:
begin
ShowMessage('Pulsaste el botón mbNo');
end;
else
ShowMessage('Cerraste el diálogo sin pulsar ningún botón');
end;
O algo así también:
Código Delphi
[-]
if (MessageDlg('Desea Capturar Otra Orden de Servicio ?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo) then
begin
ShowMessage('Pulsaste el botón mbNo');
end
else
begin
ShowMessage('No pulsaste el botón mbNo');
end;