Discussion :

[DangerousMic]

Bonjour,

Je souhaite avoir plusieurs boutons qui ouvre une même Form mais avec des paramètres différents.

Je veux juste que chaque bouton permettent de configurer un profil différent mais avec la même Form comme base.

Quelle stratégie me conseillez-vous ?

Merci pour votre aide.

[Aooka]

Salut, mon exemple est débile mais marche :

Dans la forme avec tes deux boutons :

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
procedure TForm9.Button1Click(Sender: TObject);
var
  Method1 : TForm10;
begin
  Method1 := TForm10.CustomCreate1(Owner);
  Method1.ShowModal;
end;
 
procedure TForm9.Button2Click(Sender: TObject);
var
  Method2 : TForm10;
  bOk : Boolean;
begin
  bOk := True;
  Method2 := TForm10.CustomCreate2(Owner, bOk);
  Method2.ShowModal;
end;

La forme qui doit être ouverte :

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
 
public
    Constructor CustomCreate1(Owner : TComponent);
    Constructor CustomCreate2(Owner : TComponent; bOk : Boolean);
 
[ ... ]
 
Constructor TForm10.CustomCreate1(Owner : TComponent);
Begin
  Inherited Create(Owner);
 
  ShowMessage('Methode 1');
End;
 
Constructor TForm10.CustomCreate2(Owner : TComponent; bOk : Boolean);
Begin
  Inherited Create(Owner);
 
  ShowMessage('Methode 2');
End;

En gros tu passe pas des constructeurs différents tout bêtement.

[DangerousMic]

Super, merci Martin je vais tenter et je te dirai si la méthode convient à mon problème.

[ThWilliam]

Bonjour.

Une autre solution (plus simple) est de créer dans ta Form appelée une procedure (publique) avec une variable paramètres.

Code :

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

1
2
3
4
5
6
procedure TForm2.DoOpen(Param: integer);
begin
   if Param = 1 then Label1.Caption:= 'Appel 1'
      else Label1.Caption:= 'Appel 2';
   ShowModal;
end;

Et dans la form appelante :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.DoOpen(1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   Form2.DoOpen(2);
end;

Cordialement
Thierry

[DangerousMic]

Désolé j'ai oublié de revenir vers vous

La solution de ThWilliam convient à ce que je veux faire. Passer des paramètres différents me suffisait.

Merci à tout les deux pour vos solutions.