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!!
|