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);

[cincap]

Bonjour à toutes et à tous,

@ PierreDelcroix, j'aimerai connaitre ta solution dans ce cas précis et avec la solution d'Archimede qui est la bonne avec :

Application.CreateForm(TForm1, Form1);

Form1 existe avec son Tbutton et Tpanel !

@+,

Cincap

[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.

[cincap]

Bonjour à toutes et à tous,

@ Tarmo57, voici l'origine de ta demande :

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

Donc Archimède t'a donné une solution relative à ta demande et moi je t'ai communiqué l'erreur par rapport à F2 :

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

Alors que veux tu faire exactement ?

Une form1 avec 5 Tbutton qui appelle la forme 2 à 5 dans le même panel.

5 Tform avec 5 Tbouton et 5 Tpanel ?

Avoues que....

@+,

Cincap

[aziz1972]

comment ouvrir une projet delphi 7 en embarcadero 10.2

[bm1990]

c'est simple dans l’événement OnClick de ton bouton ajoute cette ligne:

Code :

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

1
2
Form1.visible:=false;
Form2.show;