Discussion :

[chilokan]

Hello,

Je voudrais savoir s'il existe une solution pour ce que j'aimerais réaliser :

J'ai une form sur laquelle j'ai un control avec des tabs(TPageControl). Dans chaqu'un de ces tabs (TTabSheet) j'ai un champ d'édition (TEdit).

imaginons que j'ai cette procédure :

procedure maProcedure(var tabSheet : TTabSheet);
begin
tabSheet.edtChampBidon.Value := 'du_text';
end;

Serait-il possible de passer en paramètre l'un des TabSheet de mon PageControl et ainsi pouvoir modifier le champ d'édition (TEdit)?

Je sais que ce code n'est pas compilable, mais y a-t-il une autre solution qui aurait le même effet?

Merci d'avance !!

[Fabrice ROUXEL 1]

Essayes de passer un index pour indiquer la feuille.

Code :

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

procedure maProcedure(var tabSheet : TTabSheet; Indx: byte);

TComponent posséde 3 propriétés intéressantes: ComponentCount, ComponentIndex et Components.

[CapJack]

La solution la plus simple que je vois, c'est d'utiliser la propriété Tag pour stocker l'instance d'objet TEdit (dans Delphi, les variables objets sont en réalité des pointeurs sur une structure complexe, pointeurs qu'on peut facilement transtyper en entier).

Code :

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

TabSheet1.tag := Integer(Edit1); // Si si, ça marche...

La fonction :

Code :

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

1
2
3
4
procedure maProcedure(var tabSheet : TTabSheet);
begin
 TEdit(tabSheet.tag).Text := 'du_text';
end;

Il faut être sûr que la propriété tag est bien initialisée, sinon gare aux violations d'accès !

Voilà, je manque d'inspiration aujourd'hui.

Edit : @FABRICE ROUXEL -> il n'y a pas de propriété de type TEdit dans un TTabSheet. Passer l'index ne résoudra rien, et puis ça fait double usage avec le passage de l'objet tabSheet !

[Remy_delphi]

Les 2 solutions proposées sont valides, suivant le contexte.

La question est : y a t il plusieurs TEdit sur chaque TabSheet.

En cas de non, la solution propre est celle des couponents[index], du genre

For I := 0 to MyTabSheet.ComponentCount-1 do
If MyTabSheet.Components[I] is TEdit Then
Begin
TEdit(MyTabSheet.Components[I]).Text := 'mon texte';
Break;
End;

En cas de oui, il nous manque la règle qui permet de déterminer quel est le TEdit à modifier.

[CapJack]

J'y ai pensé, mais rien ne nous dit qu'il n'y a pas plusieurs TEdit sur la feuille...

[Fabrice ROUXEL 1]

Rectification: Il faut utiliser Controls, ControlCount.

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
procedure SendText(PC: TPageControl; Indx: Integer; aText: string);
var
  I: Integer;
  TS: TTabSheet;
begin
  TS := PC.Pages[Indx];
  for I := 0 to TS.ControlCount - 1 do
  begin
    if (TS.Controls[I] is TEdit) then
    begin
      (TS.Controls[I]) as TEdit).Text := aText;
    end;
  end;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  SendText(PageControl1, 0, 'du texte');
end;

Eventuellement tester la propriété tag de TEdit pour l'identifier.

[chilokan]

Super merci pour toutes ces infos