Discussion :

[fab56]

Bonjour,

c'était pour savoir comment ouvrir une fenêtre depuis une application console Delphi:

en fait je voudrait créer une fenêtre particulière suivant l'entrée de l'utilsateur

genre si au prompt on tape
creerfenetre 640 480

le programme ouvre une fenêtre windows de 640 x 480

voila j'espère que vous avez compris ce que je veux faire

Comment dois-je mi prendre au niveau de la structure.
Quelle unités de la VCL appeler ? Comment déclarer ma form ?
Dois-je créer un DFM ?

Merci

[skywaukers]

Bonjour,

oui tu dois créer un dfm. Essaye ceci, ça devrait fonctionner :

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
 
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  Forms,
  SysUtils,
  Unit3 in 'Unit3.pas' {Form3};
 
var
  L : String;
 
begin
  { TODO -oUser -cConsole Main : placez le code ici }
  Readln( L);
  if L = 'O' then
  begin
    Application.Initialize;
    Application.CreateForm(TForm3, Form3);
    Application.Run;
  end;
end.

@++
Dany

[Aka Guymelef]

Ou plus simplement j'utiliserais la fonction ParamStr qui permet justement de récupérer les valeurs passés en paramètre de l'application.

En tout cas le traitement doit se faire effectivement dans le .DPR de ton projet.

[Paul TOTH]

il me semble que ceci correspond plus à la demande...mais je peux me tromper

créer un projet avec 1 fiche avec juste le code OnCreate

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
 
type
 TConsoleThread=class(TThread)
  cmd:string;
  procedure Execute; override;
  procedure ExecCmd;
 end;
 
var
 Thread:TConsoleThread;
 
procedure TConsoleThread.Execute;
begin
 AllocConsole;
 repeat
  ReadLn(cmd);
  Synchronize(ExecCmd);
 until cmd='';
end;
 
procedure TConsoleThread.ExecCmd;
begin
  with TForm.Create(Application) do begin
   SetBounds(10,10,640,480);
   Show;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.ShowMainForm:=False;
 Thread:=TConsoleThread.Create(False);
end;

NB: ici je n'interprète pas la commande, je me contente de créer une fiche

[fab56]

Merci pour vos réponses.

L'exemple de skywaukers marche à merveille mais je ne sais pas comment faire pour pouvoir fermer la fiche sans fermer la console appelante.

Avez-vous une idée ?