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