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