Ver Mensaje Individual
  #4  
Antiguo 21-03-2019
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.009
Reputación: 20
oscarac Va por buen camino
esto en lo que tengo en el formulario "ANULAR"

Código Delphi [-]
procedure TfrmAnular.btnAnularClick(Sender: TObject);
begin
  if edtAnular.Text = 'ANULAR' then
      ModalResult := mrOk
  else
      ModalResult := mrCancel;

  _Alert(IntToStr(ModalResult) ,mtError,[mbOK],['Aceptar']);
  Close;
end;

procedure TfrmAnular.btnCancelarClick(Sender: TObject);
begin
  ModalResult := mrCancel;
  Close;
end;

procedure TfrmAnular.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmAnular.FormDestroy(Sender: TObject);
begin
  frmAnular := nil;
end;

esto tengo en la libreria donde invoco al formulario

Código Delphi [-]
  
function _Anular :Boolean;
begin
frmAnular := TfrmAnular.Create(nil);
  if frmAnular.ShowModal = mrOk then
    Result := True
  Else
    Result := False;

  _Alert(IntToStr(frmAnular.ShowModal) ,mtError,[mbOK],['Aceptar']);
end;


el mensaje (_Alert) que aparece dentro del formulario es 1 es decir OK
pero cuando sale del form y quiero ver el resultado del frmanular.showmodal, es 2

no entiendo pq cambia de valor.
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita