• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 741
  • Last Modified:

Tabsheet componentCount returning always Zero ?

Dear Experts,

when I Execute the following:

procedure TForm1.ClearForm(AForm : TsuiTabSheet);
var i : Integer;

begin

        begin
         For i := 0 to AForm.ComponentCount -1 do
             begin
               if (AForm.Components[i] is TcxTextEdit) then
                  begin
                     (AForm.Components[i] as tcxTextEdit).Text := '';
                  end;
             end;
       end;


end;

The TsuiTabSheet is a Tabsheet from a Page Control Component... since it was not working... I've checked the value returned
by AForm.ComponentCount and it is zero.

I would like to check all components on the The Tabsheet page and if they are TextEdit, clear their content...

any idea?

Thank you!

Dave
0
dcrudo
Asked:
dcrudo
1 Solution
 
mokuleCommented:
You should try something like that

  for i := 0 to ComponentCount-1 do
    begin
    if Components[i] is TControl then
      begin
      if ((Components[i] as TControl).Parent.Name = 'TabSheet1')
        and (Components[i] is TEdit) then
        (Components[i] as TEdit).Text := '';
      end;
    end;

0
 
TheRealLokiSenior DeveloperCommented:
use Controls, not Components
ie.

procedure TForm1.ClearForm(AForm : TsuiTabSheet);
var i : Integer;
begin
        begin
         For i := 0 to AForm.ControlCount -1 do
             begin
               if (AForm.Controls[i] is TcxTextEdit) then
                  begin
                     (AForm.Controls[i] as tcxTextEdit).Text := '';
                  end
             end;
       end;
end;
0
 
dcrudoAuthor Commented:
That's exactly what I was looking for!

Thank you soo much!

Dave
0

Featured Post

Upgrade your Question Security!

Add Premium security features to your question to ensure its privacy or anonymity. Learn more about your ability to control Question Security today.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now