passage d'objet en paramètre

Version imprimable

07/05/2007, 18h05
chilokan

passage d'objet en paramètre

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 !!
07/05/2007, 18h17
Fabrice ROUXEL 1

Essayes de passer un index pour indiquer la feuille.

Code:

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

TComponent posséde 3 propriétés intéressantes: ComponentCount, ComponentIndex et Components.
07/05/2007, 18h22
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:

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

La fonction :
Code:

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 !
07/05/2007, 18h37
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.
07/05/2007, 18h43
CapJack

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

Rectification: Il faut utiliser Controls, ControlCount.

Code:

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.

07/05/2007, 21h29
chilokan

Merci

Super merci pour toutes ces infos