Discussion :

[alainvh]

Bonjour à tous.
J'ai deux formes (Form1 et Form2) équipées des mêmes composants (Button1, etc...) et une unité sans forme (Tools) qui contient les procédures communes aux deux formes. Je veux modifier dynamiquement et de façon identique les composants de ces deux formes. Voici une partie de mon code :

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
 
// dans Unit1
Modifier(Form1) ; 
 
// dans Unit2
Modifier(Form2) ;
 
// dans Tools
procedure Modifier(Forme) : // Forme :Tform
begin
  if Forme.Caption = ‘Form1’ then
    begin
      with Form1 do
        begin
          Button1.Left:=100;
          // suite de la liste des modifications
        end ;
     end ; 
   if Forme.Caption = ‘Form2’ then
    begin
      with Form2 do
        begin
          Button1.Left:=100;
          // suite de la liste des modifications
        end ;
     end ;
end;

Ça fonctionne, mais ce n’est pas élégant ! J’aimerais ne pas avoir deux fois la liste des modifications, d’où un code du genre :

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
 
// dans Unit1
Modifier(X) ; // X ?
 
// dans Unit2
Modifier(Y) ; // Y ?
 
// dans Tools
procedure Modifier(Z) : // Z ?
begin
  with Z do
    begin
      Button1.Left:=100;
      // suite de la liste des modifications
    end;
end;

Mais que mettre à la place de mes X, Y et Z ??? Merci d’avance de vous pencher sur mon cas

Cordialement,

Alain

[Basile le disciple]

Bonjour à tous,

à votre place, j'utiliserais la propriété tableau Components :

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
 
procedure Modifier(Form : TForm);
var i : integer;
begin
  For i:=0 to Form.ComponentCount-1 do
  begin
    if TButton(Form.Components[i]).Name = 'Button1' then
    begin
      With TButton(Form.Components[i]) do
      begin
        ...
      end;
    end;
    if TButton(Form.Components[i]).Name = 'Button2' then
    begin
      With TButton(Form.Components[i]) do
      begin
        ...
      end;
    end;
  end;

ou encore

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
 
procedure Modifier(sender : TObject);
var i : integer;
begin
  For i:=0 to TForm(sender).ComponentCount-1 do
  begin
    if TButton(TForm(sender).Components[i]).Name = 'Button1' then
    begin
      With TButton(TForm(sender).Components[i]) do
      begin
        ...
      end;
    end;
    if TButton(TForm(sender).Components[i]).Name = 'Button2' then
    begin
      With TButton(TForm(sender).Components[i]) do
      begin
        ...
      end;
    end;
  end;

à utiliser dans les 2 cas de la façon suivante :

Code :

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

1
2
3
 
Modifier(Form1);
Modifier(Form2);

[alainvh]

Merci "Disciple" ( mais en l'occurrence, vous êtes plutôt le "Maître" )

J'essaie vos solutions et vous tiens au courant.

[alainvh]

Votre premier code fonctionne parfaitement ( à condition de remplacer les [0] par des [i] ).

Quant à votre second code, le compilateur n'apprécie pas l'expression TForm(sender) .

Merci pour votre aide qui en outre m'ouvre de nouvelles perspectives.

Bonne soirée.

Cordialement,

Alain le "disciple"

[Basile le disciple]

Merci "Disciple" ( mais en l'occurrence, vous êtes plutôt le "Maître" )

Je sais, je sais...

Votre premier code fonctionne parfaitement ( à condition de remplacer les [0] par des [i] ).

oula oui, j'ai fait des essais et j'ai oublié de les remplacer... honte à grand maître

Quant à votre second code, le compilateur n'apprécie pas l'expression TForm(sender)

Bizarre, chez moi il accepte.

[guillemouze]

Perso, je reverrai l'architecture de tes formes. Je mettrai une classe de base qui contient les composants communs, que j'heriterai en Form1 et Form2 pour les spécificités
Attention, il faut qu'ils soient dans des unités différentes pour qu'ils puissent avoir leur propre dfm modifiables dans Delphi.
Dis moi si es intéressé et que tu ne sais pas comment créer des TForm hérités (il y a quelques spécificités si tu veux le faire à la main sans passer par nouveau->Fiche [hérité])

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
29
30
31
 
type
  TFormBase = class(TForm)
    Button1: TButton;
    ...
    procedure Modifier; virtual;
  end;
 
  TForm1 = class(TFormBase)
    procedure Modifier; override;
  end;
 
  TForm2 = class(TFormBase)
    procedure Modifier; override;
  end;
...
 
procedure TFormBase.Modifier;
begin
  //comportement commun aux 2 forms
  Button1.Left := 100;
end;
 
procedure TForm1.Modifier;
begin
  inherited;
  //comportement spécifique à form1
 
end;
 
...