Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 01-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola etioalex.

Si los forms involucrados están corriendo en un mismo equipo, otra manera que se me ocurre es usando FindWindow y el mensaje WM_COPYDATA.

Pone esto en el evento OnClose del Form2:
Código:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var
  HandleReceptor: THandle;
  CopyDataStruct: TCopyDataStruct;
begin
  CopyDataStruct.dwData:= 1; // cualquier valor para evaluar en Form1
  HandleReceptor:= FindWindow(PChar('TForm1'),PChar('Form1'));
  if HandleReceptor <> 0 then
    SendMessage(HandleReceptor,WM_COPYDATA,Integer(Handle),
      Integer(@CopyDataStruct));
  Action:= caFree;
end;
Y este código en el otro form:
Código:
  TForm1 = class(TForm)
  private
    procedure WMCopyData(var Msg : TWMCopyData) ; message WM_COPYDATA;
  public
  end;
  ...
implementation
procedure TForm1.WMCopyData(var Msg: TWMCopyData);
begin
  if  Msg.CopyDataStruct.dwData = 1 then
    ShowMessage('Form2 ha sido cerrado'); // acá hace lo que gustes
end;
Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 01-07-2010 a las 17:33:37.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿Cómo usar las teclas F12 etc,y las teclas de dirección o flechas con el evento key? Master23 OOP 1 03-04-2010 17:08:50
Hacer una pausa fuera del evento OnTimer y sin usar Sleep DarkByte Varios 9 28-06-2007 04:08:00
Usar evento OnClick en imagen creada en ejecucion ilcapo C++ Builder 8 12-04-2007 21:08:51
Usar Evento OnAfterSCroll de un TQuery? jorllazo Conexión con bases de datos 12 04-10-2006 05:56:48
Llamar evento desde otro evento nachito_tuc OOP 1 23-08-2006 21:37:43


La franja horaria es GMT +2. Ahora son las 08:21:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi