Ver Mensaje Individual
  #1  
Antiguo 19-06-2007
jcapitan jcapitan is offline
Miembro
 
Registrado: jun 2006
Posts: 31
Reputación: 0
jcapitan Va por buen camino
Como ejecutar un procedimiento en mis forms mostrados, cuando ocurra un evento??

Hola amigos, de nuevo por aqui.

Quiro que mis ventanas abiertas (mostradas con show) refresquen sus tablas cuando estas sufran una modificación.

El codigo del evento lo tengo asi:

procedure TDM.EventosEventAlert(Sender: TObject; EventName: string;
EventCount: Integer);

begin

If EventName='mod_regs_detalles' then
If frmPapeleta.tblDetalles.Active then
frmPapeleta.tblDetalles.FullRefresh;
end;

esto solo actualiza la ultima generada.

Como hacerle para que refresque todas?? o como puedo ejecutar un procedimiento en todas las ventanas.

Pense en barrer todos los forms y ejecutar un procedimiento pero como hago esto?

el barrido de los forms para detectar cuales quiero actualizar me quedaría asi, y suponiendo que el procedimiento con el que cuenta el form es "procedure actualiza(sender: TObject)";

for i := 0 to Screen.FormCount-1 do
begin
if Pos('Papeleta',Screen.Forms[i].Caption)>0 then
begin
//¿¿¿¿¿¿Aqui como me enlazo a este form y le digo que ejecute el procedimiento "actualiza"???? se puede???
end;
end



Gracias de antemano!!
Responder Con Cita