Estimado Oscarac le propongo lo siguiente...
Código Delphi
[-]
...
public
class function Execute():Boolean;
end;
...
class function TfrmAnular.Execute():Boolean;
begin
with TfrmAnular.Create(nil) do
begin
btnAnular.Enabled:=false;
btnAnular.ModalResult:=mrOk;
btnCancelar.ModalResult:=mrCancel;
Showmodal;
Result:=(Modalresult=mrOk);
Free;
end;
end;
procedure TfrmAnular.Edit1Change(Sender: TObject);
begin
btnAnular.Enabled:=TEdit(Sender).Text='ANULAR';
end;
Código Delphi
[-]
function _Anular :Boolean;
begin
Result :=TfrmAnular.Execute();
if result then
_Alert('Anulado' ,mtError,[mbOK],['Aceptar'])
else
_Alert('Cancelado' ,mtError,[mbOK],['Aceptar'])
end;
Saludos cordiales