Dúvidas com o ComponentCount...
10/12/2003
0
Uso uma procedure para limpar todos TCustomEdit no meu formulario.
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
Muito bem!
Preciso usar esta procedure desta forma:
procedure LimpaEdit (Tab: TTabSheet);
var
i : Integer;
begin
for i := 0 to Tab.ComponentCount - 1 do
if Tab.Components[i] is TCustomEdit then
(Tab.Components[i] as TCustomEdit).Clear;
end;
Quando depurei o sistema percebi que o ComponentCount esta sempre 0.
Para o Form e DataModulo isto funciona muito bem, mas para outros componentes, TPanel, TGroupBox, TPageControl etc..., isto não dá certo.
Alguem pode dar uma dica...
Fico grato desde já.
T+
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
Muito bem!
Preciso usar esta procedure desta forma:
procedure LimpaEdit (Tab: TTabSheet);
var
i : Integer;
begin
for i := 0 to Tab.ComponentCount - 1 do
if Tab.Components[i] is TCustomEdit then
(Tab.Components[i] as TCustomEdit).Clear;
end;
Quando depurei o sistema percebi que o ComponentCount esta sempre 0.
Para o Form e DataModulo isto funciona muito bem, mas para outros componentes, TPanel, TGroupBox, TPageControl etc..., isto não dá certo.
Alguem pode dar uma dica...
Fico grato desde já.
T+
Sanwilly
Curtir tópico
+ 0
Responder
Posts
10/12/2003
Venus
não sei se irá ajudar, mas tente :
Tab.TPanel.Components[i]
ou
Tab.Panel.Components[i]
Tab.TPanel.Components[i]
ou
Tab.Panel.Components[i]
Responder
Clique aqui para fazer login e interagir na Comunidade :)