Resultado de una ventana modal (CLX)
 

Pues eso, que tengo una ventana que la utilizo en varias aplicaciones y necesito saber cuando se cierra con el botón correspondiente o cuando la cierran de otra forma.

En una unidad aparte, tengo lo siguiente:

Código Delphi [-]
unit capturas;
 
 interface
 uses
   QForms;
 
   function  CrearTendencia( rACTUAL, rANTERIOR:real ):string;
 
 implementation
 uses
   winModal { Win_Modal },
   fnCadenas;
 
   function  CrearTendencia( rACTUAL, rANTERIOR:real ):string;
   var
     AcabarBucle      : TModalResult;
     RespuestaBucle   : boolean;
   begin
     if not bES_SYNOP then exit;
     repeat
     { evitar ta tecla ESC }
       Application.CreateForm(TWin_Modal, Win_Modal);
       with Win_Modal do begin
            ShowModal;
            AcabarBucle  := ModalResult;
            Free;
       end;
     until( AcabarBucle=mrOK ); //-------> ¡ERROR! No reconoce "mrOK"
   end;
 
 end.

La ayuda de Delphi (para TModalResult con CLX) dice que mrOk, mrCancel, ..., etc. se encuentra en QForms, pero estoy desesperado (sé que lo he hecho, pero no recuerdo como :confused::confused::confused: , será que me está entrando la "programa-pausia")

Gracias a tod@s
Salvador

Yo me lo guiso, yo me lo acabo comiendo
 

La unidad que lo soporta es la QControls :confused::confused::confused:

Código Delphi [-]
Originalmente de Delphi Help
 TModalResult represents the return value from a modal dialog.
 
 Unit
 
 QForms
 
 Delphi syntax:
 
 type TModalResult = Low(Integer)..High(Integer);
 
 Description
 
 TModalResult represents the value returned by a modal dialog. An application can use any 
 integer value as a modal result value. For convenience, the QControls 
 unit defines a set of constants for commonly used TModalResult values:

En fin, gracias de todos modos por la ayuda prestada
Salvica