![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#4
|
||||
|
||||
|
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;
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;
__________________
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. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
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 |
|