executer un formulaire a partir d'un menu

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 ?

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:

---

1 2	uses Sysutils,... NomDeLUnitQuiContientTaForm;

---

Et pour l'appel :

Code:

---

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;

---

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.

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:

---

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.

---

Effectivement ça marche.
Merci beaucoup...