Discussion :

[PetitBoutDeCode]

Bonjour,

Je voulais savoir si il est possible d'accéder aux composants d'un TTabItem avec une boucle, en fait j'ai déjà cette fonction pour une Form, mais en essayant de l'adapter à un TTabItem, ça ne fonctionne plus :

Code :

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

1
2
3
4
5
6
7
8
 
for Var I := 0 to Saisie.ComponentCount - 1 do
  if Saisie.Components[I] Is TEdit then
    (Saisie.Components[I] AS TEdit).Text := ''
  Else if Saisie.Components[I] Is TCheckBox then
      (Saisie.Components[I] AS TCheckBox).IsChecked := False
  Else if Saisie.Components[I] Is TRadioButton then
      (Saisie.Components[I] AS TRadioButton).IsChecked := False;

Le seul Component.Name que je trouve est 'TabItemContent_' en sachant que j'aimerais bien si possible réinitialiser seulement le TabItem et pas toute la fiche.

[SergioMaster]

Bonjour,

il manque un niveau, une "page" ne contient que deux éléments : l'onglet (0) et le contenu (1)

Code :

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

1
2
3
4
5
6
7
8
 
 for i:=0 to saisie.Children[1].ChildrenCount-1 do
   begin
//    memo1.Lines.Add(saisie.Children[1].Children[i].ClassName);
    if Saisie.Children[1].Children[i] Is TEdit then (Saisie.Children[1].Children[i] AS TEdit).Text := '';
    if Saisie.Children[1].Children[i] Is TCheckBox then (Saisie.Children[1].Children[i] AS TCheckBox).isChecked:=false;
    if Saisie.Children[1].Children[i] Is TRadioButton then (Saisie.Children[1].Children[i] AS TRadioButton).isChecked:=false;
  end;

[PetitBoutDeCode]

Je vois !

Mes composants sont dans des composants qui sont dans des composants, du coup va falloir la rendre la fonction récursive maintenant!
En tout cas merci pour la réponse rapide, problème résolu.

[Paul TOTH]

je trouve plus simple de créer des structures pour cela quitte à le faire à la main

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
 
type
  TForm1 = class(TForm)
     Edit1: TEdit;
     Edit2: TEdit;
     ...
     procedure OnCreate(Sender: TObject);
   private
     Edits: TArray<TEdit>;
     CheckBoxes: TArray<TCheckBox>;
     procedure Clear;
     ....
   end;
 
procedure TForm1.OnCreate(Sender: TObject);
begin
  Edits := [Edit1, Edit2]; // il est aussi possible de faire une boucle pour rechercher les composants
  ...
end;
 
procedure TForm1.Clear;
begin
  for var e in Edits do e.Text := '';
  for var b in CheckBoxes do b.IsChecked := False;
end;

[PetitBoutDeCode]

je trouve plus simple de créer des structures pour cela quitte à le faire à la main

C'est ce que j'ai fait au début (en moins propre que l'exemple ) mais à chaque fois que je rajoute un composant je doit penser à l'ajouter dans la liste, et je suis bien trop tête en l'air pour y penser à chaque fois.

En plus le code s'adapte à n'importe quel composant visuel (je crois)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure Form1.BtReinitTab(Sender: TObject);
begin
  for Var I := 0 To (Sender As TControl).ChildrenCount - 1 Do
      if TControl(Sender).Children[I] IS TEdit then
          (TControl(Sender).Children[I] AS TEdit).Text := ''
      Else if TControl(Sender).Children[I] Is TCheckBox then
          (TControl(Sender).Children[I] AS TCheckBox).IsChecked := False
      Else if TControl(Sender).Children[I] Is TRadioButton then
          (TControl(Sender).Children[I] AS TRadioButton).IsChecked := False
      Else
      BtReinitTab(TControl(Sender).Children[I]);
end;