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 ,
fnCadenas;
function CrearTendencia( rACTUAL, rANTERIOR:real ):string;
var
AcabarBucle : TModalResult;
RespuestaBucle : boolean;
begin
if not bES_SYNOP then exit;
repeat
Application.CreateForm(TWin_Modal, Win_Modal);
with Win_Modal do begin
ShowModal;
AcabarBucle := ModalResult;
Free;
end;
until( AcabarBucle=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



, será que me está entrando la "programa-pausia")
Gracias a tod@s
Salvador