ComponentCount / PageControl

Question

Bonjour, j'ai un probleme avec ce code :

apcFicheProspect.ActivePage.ComponentCount

qui renvoi 0 alors qu'il comtient d'autre composant,

apcFicheProspect est un TAdvPageControl (www.tmssoftware.com) mais cela fait la meme chose avec un pagecontrol tout simple ... 

Quelqu'un à une idée ?

japee · Answer

En fait, PageControl.ActivePage est le "Parent" des Composents qui y sont déposés, pas le "Owner". Donc, ça te renvoie forcément 0.

Je ne vois que ce ça pour arriver au résultat attendu :

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    Compos: Integer;
begin
  Compos := 0;
  for i := ComponentCount -1 downto 0 do
    if (Components[i] as TControl).Parent.Name = (PageControl1.ActivePage).Name then
      Inc(Compos);
  Label1.Caption := IntToStr(Compos);
end;


Il y a peut-être plus simple ? Mais ça marche...

Bonne prog'   :-p

japee · Answer

Bon, tu préfères sans doute sous la forme d'une fonction ?

function NombreComposants(Form: TForm; PageActive: TTabSheet): Integer;
var i: Integer;
begin
  Result := 0;
  for i := Form.ComponentCount -1 downto 0 do
    if (Form.Components[i] as TControl).Parent.Name = (PageActive).Name then
      Inc(Result);
end;

...

//Exemple :
var NbreCompos: Integer;

NbreCompos := NombreComposants(Form1, PageControl1.ActivePage);

ComponentCount / PageControl

2 réponses

Votre réponse

Discussions similaires