Discussion :

[tarmo57]

salut comment faire sur ma form 1 j'ai un bouton et sur l'élément onclic je voudrais faire apparaire la form2 dans la form1

merci

[cincap]

Bonjour à toutes et à tous,

@ Tarmo57, ce lien est peut être ta solution, il suffit de l'adapter.

http://www.developpez.net/forums/d67...commande-form/

@+,

Cincap

[Archimède]

Si c'est dans la form1, c'est autre chose...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
begin
f2:=Tform.create(application);
f2.Parent:=panel1;
f2.Align:=alclient;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
f2.Show;
end;

tu ouvres form2 dans un panel sur form1

voilà

a+

[tarmo57]

Si c'est dans la form1, c'est autre chose...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
begin
f2:=Tform.create(application);
f2.Parent:=panel1;
f2.Align:=alclient;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
f2.Show;
end;

tu ouvres form2 dans un panel sur form1

voilà

a+

Merci Archimède j'ai juste une erreur F2 identificateur non déclarer f2 ??

[cincap]

@ Tarmo57, ajoute F2 : TForm;

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
 
var
  Form1: TForm1;
  f2 : Tform;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
f2:=Tform.create(application);
f2.Parent:=panel1;
f2.Align:=alclient;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
f2.Show;
end;

@+,

Cincap

[PierreDelcroix]

On peut utiliser aussi:

Code :

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

1
2
 
Application.CreateForm(TForm1, Form1);

[tarmo57]

@ Tarmo57, ajoute F2 : TForm;

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
 
var
  Form1: TForm1;
  f2 : Tform;
 
implementation
 
{$R *.dfm}
 
 
procedure (Sender: TObject);
begin
f2:=Tform.create(application);
f2.Parent:=panel1;
f2.Align:=alclient;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
f2.Show;
end;

@+,

Cincap

excuse moi mais je suis face a un probleme .Le but de ma demande est pour afficher toute les form de mon programme .
en tous j'ai 5 form ,donc 5 boutons avec onclic et j'affiche au fure et a mesures mes form .Mais la je crois qu'il y a un probleme.