Discussion :

[alexisla]

bonjour,
je voudrais ouvrir, a l'aide d'un bouton dans ma fenêtre principal(form1), ma deuxième fenêtre(form2) j'ai trouver cette question posé sur le forum mais cela ne marche pas avec moi :/
(http://www.developpez.net/forums/d67...t/ouvrir-form/)

merci de votre réponse.

[Paul TOTH]

plusieurs solutions qui nécessitent de comprendre un tant soit peu Delphi

1) Delphi peut créer automatiquement les fiches du projet, il le fait par défaut et on retrouve dans les "Sources du projet" un Application.CreateForm() pour chaque fiche.

Grâce à ce code, la variable Form1 de Unit1 pointe sur une instance de TForm1, la variable Form2 de Unit2 pointe sur une instance de TForm2.

2) il est possible de créer la fiche dans le code, dans ce cas on ne garde que la fiche principale Form1, et la variable Form2 de l'unité Unit2 n'est pas initialisée.


Dans tous les cas, si l'unité Unit1 veux faire référence à Form2 elle doit avoir Unit2 dans une de ses deux clauses Uses.

Si Form2 est déjà créé dans le DPR il suffit de faire un Form2.Show()

si Form2 n'est pas créé dans le DPR il faut instancier TForm2 avant de l'afficher:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Self);
  Form2.Show();
end;

il est possible de déclarer une variable locale Form2 ou d'utiliser la variable globale Form2 de Unit2, tout dépend de la logique de l'application.

[alexisla]

bonjour,
je n'ai pas tous compris pouriez vous etre un peu plus explicite SVP

[e-ric]

Salut

Que veux-tu faire exactement ?
- Afficher une fiche dans une fenêtre indépendante (la manière standard, quoi) ?
- Afficher une fiche dans un TPanel ?

Cdlt

[alexisla]

je voudrais que lorsque je clique sur un bouton une fenêtre indépendante de la première s'ouvre sauf que je ne sais absolument pas comment faire :/

[e-ric]

Ca reste un peu vague, je te donne un exemple de code, à adapter. On supose que la référence de la fiche de type TForm2 est Form2, appelé depuis le clic sur le bouton Button1 de Form1

Code :

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

1
2
3
4
5
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
End;

pour une fiche autocrée.

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(Form2) then
    Form2 := TForm2.create(application);
  Form2.Show;
End;

pour une fiche non autocrée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Application);
  try
    Form2.ShowModal;
  finally
    Form2.Release;
  end;
End;

pour une création locale et un affichage modal.

Tu as de quoi t'inspirer, cherche un peu dans l'aide pour approfondir

[Fxg]

Et surtout commencer par la lecture des tutos disponibles sur le site et notamment Le Guide Delphi par Frédéric Beaulieu pour acquérir les bonnes bases nécessaires.

[alexisla]

c'est deja fais, j'ai lu ce tuto 2 fois deja

[alexisla]

e-ric, j'ai un probleme, il me dis que t form2 n'est pas declarer, alors qu'il lest dans la variable

[e-ric]

Observe bien le code et essaie de comprendre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Application);
  try
    Form2.ShowModal;
  finally
    Form2.Release;
  end;
End;

J'ai utilisé une variable locale (j'ai bien précisé "pour une création locale" dans le post) pour qu'elle n'interfère pas avec la variable Form2 créée par Delphi.
Tu peux remarquer que dans les autres extraits de code, je ne l'ai pas fait, j'ai utilisé la variable créée par Delphi. C'est à toi de trouver la bonne solution à ton problème.

Personnellement, j'ai tendance à ne pas utiliser les variables créées par Delphi. En outre, évite de d'auto-créer trop de fiches ou de DataModules, cela peut fortement ralentir le démarrage de ton programme sans être techniquement justifié.

c'est deja fais, j'ai lu ce tuto 2 fois deja

Ca finira bien par rentrer, courage... Si tu as des soucis de compréhension tu peux poser aussi des questions.

[alexisla]

justement dans les deux cas, en utilisant une variable local ou global, il me dis qu'elle n'est pas déclarer, ne serais-ce pas un probleme de mon delphi lui meme ? sinon j'ai pensé que en en rajoutant unit2 dans les uses sa pourais fonctionner, mais je n'en suis pas sur, je test sa tout de suite.

[Paul TOTH]

justement dans les deux cas, en utilisant une variable local ou global, il me dis qu'elle n'est pas déclarer, ne serais-ce pas un probleme de mon delphi lui meme ? sinon j'ai pensé que en en rajoutant unit2 dans les uses sa pourais fonctionner, mais je n'en suis pas sur, je test sa tout de suite.

Dans tous les cas, si l'unité Unit1 veux faire référence à Form2 elle doit avoir Unit2 dans une de ses deux clauses Uses.

...

[e-ric]

Je t'ai fait un petit projet avec 3 fiches dont l'une appelle les 2 autres de différentes façons (les plus courantes, il y en a bien d'autres).

Recherche la chaîne {A LIRE} dans les fichiers source pour les explications.

Il faut que tu apprennes comment on relie les unités entre elles, c'est un aspect fondamental de Delphi (celui de la programmation modulaire), la logique de Delphi à ce sujet est simple à comprendre. Par ailleurs, il ne faut pas d'approximation quand tu développes sinon tu n'as pas fini de souffrir...

N'hésite surtout pas à lire la doc standard (ou l'aide en ligne) et les tutos disponibles dans ce puits de science qu'est DVP.com .

@+

[alexisla]

Je pense avoir trouver mon problème, j'ai fais un projet fire monkey, et les paramétrés ne doivent pas forcément être les mémés que pour une fenêtre classique

Dans tous les cas, si l'unité Unit1 veux faire référence à Form2 elle doit avoir Unit2 dans une de ses deux clauses Uses.

désolé, j'ai du sauté cette phrase :/

en bref, voici ce que j’essaye de faire: je veut recréé un programme de répertoire de contact(je sais sa va me prendre énormément de temps), j'ai déjà fais toute la partie interface, et j'ai les capacité pour faire le reste du code pour pouvoir le faire marcher. j'aimerais juste pouvoir ouvrir les fenêtres rechercher et créé depuis la fenêtre menu.

[e-ric]

(Je n'ai que Delphi 7 incompatible avec FMX.)
Il faut que tu commences par ajouter les unités Rechercher et Créé dans le projet, ce serait un bon début puis tu les ajoutes dans la clause uses d'implémentation de l'unité Menu.
Après tu t'inspires du petit projet que j'ai posté hier, rien de bien compliqué.

@+

[alexisla]

hé ben justement sa fais longtemps que j'essaye, mais j'y arrive pas :/

[retwas]

Je viens d'ouvrir ton projet qui contient la fiche "menu"

Les fiches "rechercher" et "créé" n’appartiennent pas a ton projet.
Tu as beau rajouter les uses c'est normal qu'ils ne trouvent pas ces fiches.

Ajoute les dans ton projet

EDIT: Désolé j'avais pas vu ta réponse e-ric

Pour ajouter les fiches un simple "glisser-deposer" sur ton projet dans Delphi (treeview de droite) suffit pour ajouter tes fiches.

Sinon des fiches avec des caractère comme "é" je te le déconseille

[alexisla]

Donc j'ai bien réussi a mettre mes deux fiches dans mon projet, mais lorsque jeveux faire en sorte a ce que le bouton "Rechercher contact" ouvre la "Form3" sa ne marche pas, meme en déclarant dans les uses. voici le code de ma fiche menu :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
unit menu;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects, FMX.Edit;
 
type
  TForm1 = class(TForm)
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses
  unit rechercher,
  unit créé;
 
{$R *.fmx}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Form3_3: TForm3;
begin
  Form3_3 := TForm3.Create(Application);
  try
    Form3_3.ShowModal;
  finally
    Form3_3.Release;
  end;
end;
end.

il me dis que j'ai le "unit" ligne 29 qui n'est pas reconnus, tous les TForm3 ne sont pas déclarer, ainsi que le .create .showmodal et .release.

[retwas]

Cela suffit

Code :

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

uses rechercher, créé;

Sinon je pense qu'il faudrait que tu lises la doc une troisième fois ..

EDIT : Le projet de ton zip est totalement incohérent
Dans créé.pas j'ai au début unit menu;

[alexisla]

sa ne marche toujours pas, sa n'a strictement rien changer :/