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.