Discussion :

[Laye]

Salut,

j'ai une application avec deux formulaires dont l'un est le menu.
Quand je click sur une option qui doit ouvrir l'autre formulaire, j'obtient le message suivant : Access violation at address 004034EE in module "nom module" . Read of address 00000000.
Comment lui faire reconnaitre le deuxieme formulaire ?

[jfdeterme]

Salut,
Si j'ai bien compris ta question, la solution est simple :
tu déclare dans uses le nom de l'unit dans laquelle est stockée la seconde form.
Ca donne quelque chose genre :

Code :

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

1
2
 
uses Sysutils,... NomDeLUnitQuiContientTaForm;

Et pour l'appel :

Code :

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

1
2
3
4
5
 
procedure Montrerfiche;
begin
TaForm.show;; // Cette fois ci on fournit le NOM de la form et pas le nom de l'unit qui la contient
end;

[Laye]

j'ai essaye mais le meme message revient. Voila mon code :

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, Unit4;

type
TForm4 = class(TForm);
TForm3 = class(TForm)
Image1: TImage;
MainMenu1: TMainMenu;
Fichier: TMenuItem;
Edition1: TMenuItem;
Quitter1: TMenuItem;
ConsultationOprations1: TMenuItem;
procedure FichierClick(Sender: TObject);
procedure Edition1Click(Sender: TObject);
procedure Quitter1Click(Sender: TObject);
procedure ConsultationOprations1Click(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
end;

var
Form3: TForm3;
Form4: TForm4;
implementation

{$R *.dfm}

procedure TForm3.Quitter1Click(Sender: TObject);
begin
form3.Close
end;

procedure TForm3.Edition1Click(Sender: TObject);
begin
ShowMessage('En cours de réalisation SVP...');
end;

procedure TForm3.FichierClick(Sender: TObject);
begin
// ShowMessage('Tâches de cette option en cours de réalisation ...');
end;

procedure TForm3.ConsultationOprations1Click(Sender: TObject);
begin
form4.Show
end;
end.

C'est Form4 qui doit etre execute et elle est dant Unit4.

[jfdeterme]

Ne déclare pas TForm4 = class(TForm); et Form4: TForm4;
Si tu enleves ces 2 déclarations ca devrait marcher
Le code devrait donc donner :

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
46
47
48
49
50
51
52
53
54
55
 
 
unit Unit3;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, Unit4;
 
type
TForm3 = class(TForm)
Image1: TImage;
MainMenu1: TMainMenu;
Fichier: TMenuItem;
Edition1: TMenuItem;
Quitter1: TMenuItem;
ConsultationOprations1: TMenuItem;
procedure FichierClick(Sender: TObject);
procedure Edition1Click(Sender: TObject);
procedure Quitter1Click(Sender: TObject);
procedure ConsultationOprations1Click(Sender: TObject);
private
{ Private declarations }
 
public
{ Public declarations }
end;
 
var
Form3: TForm3;
implementation
 
{$R *.dfm}
 
procedure TForm3.Quitter1Click(Sender: TObject);
begin
form3.Close
end;
 
procedure TForm3.Edition1Click(Sender: TObject);
begin
ShowMessage('En cours de réalisation SVP...');
end;
 
procedure TForm3.FichierClick(Sender: TObject);
begin
// ShowMessage('Tâches de cette option en cours de réalisation ...');
end;
 
procedure TForm3.ConsultationOprations1Click(Sender: TObject);
begin
form4.Show
end;
end.

[Laye]

Effectivement ça marche.
Merci beaucoup...