Ayuda con este código que me dejaron

[dec]

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;

[LAFALOFO]

Soloq ueria agradecer a los foreros ya que sus consejos e ideas me han ayudado mucho y por fin he resuelto este problemilla, que viendolo bien no era nada complicado.


GRAX

[[Caral]]

Hola LAFALOFO
Para terminar y erriquecer un poco la explicacion de mi maestro Dec. con su permiso y sabiendo que se te presento esta duda antes solo queria darte estos codigos de mensajes que se, te cuestan un poco, para que los puedas usar en otra ocasion.

Si, No Cancela

Código Delphi [-]
 if MessageBox(Handle, 
                PChar('Mensaje'), 
                PChar('Título'),
                MB_YESNOCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL) = IDYES then
  begin
  end;

reintentar, cancelar

Código Delphi [-]
if MessageBox(Handle, 
                PChar('Mensaje'), 
                PChar('Título'),
                MB_RETRYCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL) = IDRETRY then
  begin
  end;

Anular, reintentar, omitir

Código Delphi [-]
  if MessageBox(Handle, 
                PChar('Mensaje'), 
                PChar('Título'),
                MB_ABORTRETRYIGNORE + MB_DEFBUTTON1 + MB_APPLMODAL) = IDRETRY then
  begin
  end;

Se que esto es sencillo pero lo pongo puesto que tanto tu como a otro le podria servir en algun momento.
Saludos y suerte