ActiveDelphi

[rspozito]

E ai pessoal...

Seguinte.. com ofaço para atribuir a todos os componente TSQLQUery que existem uma procedure padrão quando dá o BeforeOpen?

for i := 0 to Self.ComponentCount-1 do begin

if (data.Components[i] is TSQLQuery) then
(data.Components[i] as TSQLQuery).BeforeOpen := ShowMessage(\'teste\');


end;


No caso o showmessage é só um teste, mas depois vou cirar a minha função para mostrar a atividade do componente...

valew e abraços...

[rspozito]

ninguem se habilita?


valew.. )