Discussion :

[neho88]

Bonjour,
je cherche un composant dans une feuille ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  var
     Bouton              : TSpeedButton;
  begin
     Bouton:=TSpeedButton(FrmGraph.FindComponent('SbnClr'));
     if Bouton<>Nil then
       Bouton.caption:='Couleur'
  end;

mais le bouton reste à 'nil', alors que le bouton existe dans la feuille.
quand j'écris ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
  begin
    with FrmGraph.SbnClr do
      caption:='Couleur'
    end;

ça fonctionne.

//-----------
je dois faire une erreur quelque part.
bonne journée

[Andnotor]

FrmGraph n'est pas le propriétaire de ce bouton.

Tu peux avoir une déclaration SbnClr :TSpeedButton dans FrmGraph mais créer dynamiquement ce composant en lui passant un propriétaire différent dans son constructeur (un panel par exemple). FrmGraph.FindComponent ne le trouvera pas puisqu'il n'appartient pas à FrmGraph mais au panel.

[BeanzMaster]

Salut,
Je n'ai pas testé mais pour faire ce que tu souhaites, il faut parcourir tous les composants de ta "Form"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TForm1.ModifierSpeedButton;
var
  Bouton              : TSpeedButton
  I : Integer;
begin
  for I:= 0 to Self.ComponentCount-1 do
  begin
    if Self.Components[I] is TSpeedButton then
    begin
       Bouton:=TSpeedButton(Self.Components[I]);       
       if Bouton<>Nil then 
       begin
          if Bouton.Name = 'SbnClr' then Bouton.caption:='Couleur'
       end;
    end;
  end; 
end;

A+

[Andnotor]

il faut parcourir tous les composants de ta "Form"

Ça n'apporte rien si le bouton n'est pas possédé par la fiche
Il faudrait que ta procédure soit récursive.

[BeanzMaster]

Ça n'apporte rien si le bouton n'est pas possédé par la fiche
Il faudrait que ta procédure soit récursive.

Oui tu as raison, je n'y avais pas pensé

Donc voila, un truc qui affiche les controles dans un memo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender : TObject);
 
procedure FindControl(Root : TControl);
var
  I : Integer;
begin
  for I:= 0 to Root.ComponentCount-1 do
  begin
    if (Root.Components[I] is TControl) then
      if (Root.Components[I] as TControl).ComponentCount > 0 then
        FindControl(TControl(Root.Components[I]))
      else
        Memo1.Append(Root.Components[I].Name);
  end;
end;
begin
  FindControl(self);
end;
 
procedure TForm1.FormCreate(Sender : TObject);
begin
  Button2 := TButton.Create(Panel2);
  Button2.Parent := Panel2;
  Button2.Top := 4;
  Button2.Left := 4;
  Button2.Name := 'MyButton';
 
end;

[Andnotor]

Ce serait typiquement quelque chose qui pourrait se faire par class helper et "partiellement" répondre aux interrogations de ChPr sur le sujet.

Le but ici serait d'ajouter une nouvelle fonction FindComponent récursive à TComponent pour que tous les composants héritant de TComponent (fiche, panel, groupbox, etc.) puissent l'utiliser.
Ou en d'autres termes, ajouter une méthode à une classe ancêtre sans pour autant modifier ses sources

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
type
  TComponentHelper = class Helper for TComponent
  public
    function FindComponentEx(const aName: string): TComponent;
  end;
 
function TComponentHelper.FindComponentEx(const aName: string): TComponent;
var
  i :integer;
 
begin
  Result := FindComponent(aName);
  if Assigned(Result) then Exit;
 
  for i := 0 to ComponentCount -1 do
  begin
    Result := Components[i].FindComponentEx(aName);
    if Assigned(Result) then Exit;
  end;
end;
 
//puis
 
Form1.FindComponentEx('Button1');
Panel1.FindComponentEx('Button1');
etc.

J'avais initié une discussion sur le sujet à l'époque, de quoi se familiariser avec le truc pour ceux qui ne connaissent pas ou se remémorer les possibilités pour les autres