Fórum Form para Procedure #290275

é o seguinte:

tenho uma procedure

proced...(Sender : TForm);
begin

pesquiso o grupo de usuario numa tabela, e la, tenho alguns
componentes cadastrados (apenas o nome do componente), e se esta
habilitado.

aqui, faco um for/next, para saber todos os componentes
que estao no form
for...
se o componente em ´Sender´, passado como parametro for
encontrado na pesquisa, apenas testo se ele esta habilitado,
caso sim, deixo como visivel ou nao

next
...



o que preciso é
fazer uma procedure, generica, para que funcione para qualquer form.
Saliento que cada form pode haver inumeros tipos de componentes
tenho que testar todos eles.

alguma sugestao.



//---- HABILITA OU NAO BOTOES, EDITS...

Q.Close;
Q.SQL.Text := ´Select * From Tabelas J ´+
´Where ´+
´J.CodGrupo = :CodGrupo ´;
Q.ParamByName(´CodGrupo´).AsInteger := iGrupo;

Q.Open;


for i := 0 to Sender.ComponentCount -1 do
begin
NomeComponente := UpperCase(Sender.Components[i].GetNamePath);
while not Q.Eof do
begin
NomeComponenteQuery := UpperCase(Q.FieldByName(´Botao´).AsString);
//---- ACHOU O COMPONENTE
if Pos(NomeComponente, NomeComponenteQuery) > 0 then
begin
Habilitado := Pos(´;´, NomeComponenteQuery);
Habilitado := StrToIntDef(Copy(NomeComponenteQuery, Habilitado + 1, 1), 0);
if Sender.Components[i] is TmxFlatButton then
Sender. TmxFlatButton(Components[i]).Visible : False;
end;

Q.Next;
end;
end;

end;

=======

esse codigo acima nao esta funcionando.


resumindo:

preciso de uma procedurre, que receba um form qualquer,
este possui inumeros tipos de componentes.
preciso rodar todos os componentes deste form, e , testar (validar)
numa query se o componente existe lá, caso sim, tenho que deixar ele visivel ou nao. é isso.


Obrigado.