Discussion :

[fred64]

Bonjour à tous,

voila mon problème :

Je cherche a créer un projet pr lequel je n'ai pas de form principale liée.
Par défaut, si l'on crée un nouveau projet de type application il crée automatiquement une form. J'aimerai ne pas avoir de form liée (comme une unité) ceci car dans cette unité je créerai dynamiquement les forms a afficher.

J'ai essayé en modifiant les fichiers projets, tout avais l'air de bien se passer mais j'ai une violation d'accès que j'arrive pas a débugger, j'ai pourtant bien enlevé toutes les anciennes références à la form en question,

merci de votre aide

Fred

[rsc]

mais j'ai une violation d'accès que j'arrive pas a débuggerFred

Sur quelle ligne précisément ?

[Yurck]

Bonjour,

Si tu enlève toutes les fiches créées auto de ton projet via la boîte projets/options onglet fiches alors tu n'as plus aucune fiche de crée.

Mais dans ce cas si dans ton Programm tu ne crée pas de fiche avec l'instruction application.run alors ton programme sans planter se referme dès son ouverture puisqu'il n'a aucun objet windows de crée en attente de message.

Pour ce qui est de ton bogue, tu dois pouvoir déboguer et nous dire au moins si tu rentre dans ton programm jusqu'à la ligne application.run

a+

[fred64]

Merci à vous, j'ai simplifié le problèle voila le code :

Project1.dpr

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
 
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas';
 
 
{$R *.res}
 
begin
  Application.Initialize;
  Main.Test;
  Application.Run;
end.

Unit1:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.

Unit2 :

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
unit Unit2;
 
interface
 
uses
 Forms, Dialogs, Unit1;
 
type
	TMain = class
    private
	public
        procedure Test;
	end;
 
var
	Main: TMain;
 
implementation
 
procedure TMain.Test;
begin
Form1.Create(Application);
end;
 
 
end.

Ca plante avant Application.Run;, ca doit etre evident mais je ne trouve pas

[Yurck]

Du coup ça saute aux yeux.

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
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas';


{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TMain, Main);
  Main.Test;
  Application.Run;
end.

Tu ne peux pas appeler un objet qui n'est pas créé.

a+

[Yurck]

Excuse moi j'ai faim et je m'emballe.

Tu peux le faire si tu déclare ta fonction Test comme étant une procédure de class.

a table.

[fred64]

merci, je viens d'essayer avec une procédure de classe et ca ne change rien du tout

[rsc]

A mon sens, avec

Code :

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

Main.Test;

Tu appelles un objet qui n'a pas été instancié ; ce n'est donc pas étonnant si ça plante.

Dans ton exemple, tu n'as pas besoin que test soit une méthode de classe. D'autre part, il y a une erreur dans la création de ta Form. Il suffiet d'écrire ceci :

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
unit Unit2;

interface

uses
 Forms, Dialogs, Unit1;
 
procedure Test;
    
implementation

procedure Test;
begin
Form1 := TForm1 .Create(Application);
end;

end.

[Yurck]

Avec une procédure de class tu corrigerai ta première erreur.
cad le fait d'appeler une méthode de l'objet Main sans qu'il soit créé.
Mais cela ne changerai pas le fait que dans la méthode de class Main.test il ne faudrait pas non plus appeler de nouveau un objet sans l'instancier.

Donc comme le dit rsc dans ta méthode quelle soit de class ou non il ne faut pas non plus appeler une méthode (en l'occurence ici le constructeur Create) sur un objet non instancier sauf si cette méthode est une procédure de class (ce qui n'est pas le cas du constructeur create)

Code :

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

1
2
3
4
5
6
class procedure TMain.test;
begin
  Form1 := TForm1 .Create(Application);
  Form1.show;
end;

a+

[fred64]

Merci de vos réponses,

je code avec delphi depuis un moment pr faire des petits trucs mais je ne m'etais pas jusqu'à présent posé de questions existentielles, j'ai compris le mécanisme, merci à vous de votre aide

Fred

[rsc]

Si c'est bon, balise