Error con ShowModal

[el_barto]

Muchacho muy buenos dias

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

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

[dec]

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".

[vtdeleon]

Saludos

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

[Juanmi_pro]

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

[vtdeleon]

Saludos.

Empezado por Juanmi_pro

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

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.

[dec]

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

[[Lepe]]

Empezado por vtdeleon

aunque creo que no es necesario tener Form3.free ya que se cierra sola.

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