Ver Mensaje Individual
  #1  
Antiguo 09-04-2025
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.437
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Con un código como este puedes capturar el evento OnDestroy.

Código Delphi [-]
...
type
  TFormMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure SeDestruyeForm(Sender:TObject);
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

uses unit2;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  Form2.OnDestroy := SeDestruyeForm;
  Form2.Show;
end;

procedure TFormMain.SeDestruyeForm(Sender: TObject);
begin
  ShowMessage(Format('Se ha destruido el formulario <%s>',[TForm(Sender).Name]));
end;

En el OnClose del segundo formularuio debes poner que se destruya.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita