form message

[ercrizeporta]

hola!! tengo un problema un poco tonto creo. Cuando creo una ventana mediante el siguiente codigo

messagedlg('CANTIDAD INSUFICIENTE1nulo',mterror,[mbyes,mbcancel],0)

como se despue de cerrar la ventana cual de los dos botones he pulsado, mbyes o mbcancel.

me gustaría hacer lo siguiente

if mbyes then
....
else
if mbcancel then
...
end;
end;

muchas gracias!!!

[[Caral]]

Hola

Código Delphi [-]
begin
 if MessageBox(Handle, 
                PChar('CANTIDAD INSUFICIENTE'), 
                PChar('Verifique'),
                MB_OKCANCEL + MB_DEFBUTTON1 + MB_APPLMODAL) = IDOK 
  // Aqui si es negativo
then
  begin
   // Aqui lo que necesitas si es afirmativo
  end;
end;

Saludos

[[seoane]]

Prueba asi:

Código Delphi [-]
case messagedlg('CANTIDAD INSUFICIENTE1nulo',mterror,[mbyes,mbcancel],0) of
  mbYes: 
    begin

    end;
  mbCancel:
    begin

    end;
end;

[roman]

O sea, MessageDlg es una función, y el valor que devuelve es el que te indica cuál fue el botón que oprimió el usuario. Busca en la ayuda de Delphi para que veas la lista completa de valores posibles de regreso.

Por otra parte, yo prefiero usar la función que apunta Caral, Application.MessageBox, ya que con ella, el texto de los botones aparece en el idioma del sistema, mientras que MessageDlg siempre mostrará los textos en inglés.

// Saludos