Un projet sans Form liée

Version imprimable

07/09/2006, 12h50
fred64

Un projet sans Form liée

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
07/09/2006, 13h04
rsc

Citation:

Envoyé par fred64

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

Sur quelle ligne précisément ?
07/09/2006, 13h05
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+

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

Project1.dpr

Code:

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:

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:

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

Du coup ça saute aux yeux.
Code:

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+

07/09/2006, 13h19
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.
07/09/2006, 13h34
fred64

merci, je viens d'essayer avec une procédure de classe et ca ne change rien du tout
07/09/2006, 13h48
rsc
A mon sens, avec

Code:

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:

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.
07/09/2006, 13h58
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:

1 2 3 4 5 6 class procedure TMain.test; begin Form1 := TForm1 .Create(Application); Form1.show; end;
a+
07/09/2006, 14h28
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
07/09/2006, 15h10
rsc

Si c'est bon, balise :resolu: :)