Error con ShowModal
 

Muchacho muy buenos dias

tengo un pequeño pero molesto inconveniente, estoy usando la instruccion:

Cita:

if Form3.ShowModal = mrOk then begin form3.Free; Application.CreateForm(TForm1, Form1); Application.Run; end;

pero me saca un error que dice:

[Error] Project1.dpr(15): Undeclared identifier: 'mrOk'

la sintaxis esta bien y no encuentro el motivo del error, pueden ustedes ayudarme, muchas gracias :cool:

Hola,

Prueba a añadir la unidad "Controls" en la cláusula "Uses" oportuna.

El error estriba en que es en la referida unidad en donde se declara la constante "mrOK".

Saludos

No estoy muy seguro, pero creo que puedes usar IdOk en vez de MrOk y asi no agregar la unidad

no no noo, e asii
 

Amos a ver..no t reconoce MROk sencillamente pq no es un valor de showmodal, sino de modalresult. La propiedad del formulario es modalresult, asi:

form3.modalresult = MrOk

Saludos,Juanmi

Saludos.
La sintaxis de el_barto está correcta. Esta llama el form3 en forma modal y si el form3 devuelve un valor mrOk (o IdOk) creará el formulario Form1.

Para mi es 100% funcional, aunque creo que no es necesario tener Form3.free ya que se cierra sola.:confused:

Hola,

Tienes razón vtdeleon: podría usar "IdOk" y no añadir la unidad "Controls", pero, habría entonces de añadir la unidad "Windows", que es donde está la constante "IdOk".

En cuanto a lo de liberar el "Form3", debe ser porque no vuelva a hacerse uso de ese formulario. Digo yo...

Código Delphi [-]
procedure TCustomForm.CloseModal;
var
  CloseAction: TCloseAction;
begin
  try
    CloseAction := caNone;
    if CloseQuery then
    begin
      CloseAction := caHide;
      DoClose(CloseAction);
    end;
    case CloseAction of
      caNone: ModalResult := 0;
      caFree: Release;
    end;
  except
    ModalResult := 0;
    Application.HandleException(Self);
  end;
end;

En principio, al cerrar una ventana modal se oculta, a menos que se haya especificado en el OnClose: action := cafree; esto se verifica en el DoClose(var Action:TcloseAction)

Un saludo

SaludosGracias por la Aclaracion;)