Discussion :

[tomy_libre]

salut, je cherche à faire certain fonction sans afficher ma forme, je veut que le travaille se fait en arrière plant (forme.hide marche pas, aussi application.hide)

[Charly910]

Bonjour,

dans le fichier de ton projet après application.initialize tu dois mettre :

Code :

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

  Application.ShowMainForm := false

A+

Charly

[edam]

tu peut même crée une appli sans fenêtre comme une appli consol

[Charly910]

Oui mais en appli console on a une fenêtre de style DOS ? et l'appli apparait dans la barre de tâche ?

enfin je crois ...

Charly

[tomy_libre]

quand je met :
Application.ShowMainForm := false
l'application se cache mais elle se stop ,elle ne termine pas son travail qui en ONcreate.

[tomy_libre]

j'ai fait :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormPaint(Sender: TObject);
begin
  form1.hide;
 
   ShowWindow (Form1.Handle, SW_Hide);
   showwindow(Application.handle,Sw_hide);
end;

et la forme s'affiche qq milliseconde w se cache , mais on petu voir la forme qui s'ouvre et se ferme rapidement !!!!!!!

[edam]

quand je met :
Application.ShowMainForm := false
l'application se cache mais elle se stop ,elle ne termine pas son travail qui en ONcreate.

bizzar , donne le code de unite "projet".dpr

[edam]

j'ai fait :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.FormPaint(Sender: TObject);
begin
  form1.hide;
 
   ShowWindow (Form1.Handle, SW_Hide);
   showwindow(Application.handle,Sw_hide);
end;

non pas dans onpaint, oncreat, on plus hide n'a pas de sons ici

[tomy_libre]

non pas dans onpaint, oncreat, on plus hide n'a pas de sons ici

lorsque je met .hide dans ONcreate un erreur me dit que je peut pas mettre une opération HIDE pendant un opération d'affichage comme ONcreate et ONshow ...

[Charly910]

Bonjour Tomy_Libre

J'ai créé un petit projet en Delphi 7 :

voici le 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
program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.ShowMainForm := false ;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Voici la form principale :

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
     Showmessage('Hello');
     Application.terminate ;
end;
 
end.

Chez moi cela fonctionne : l'appli s'exécute sans affichage de la form Form1, le message s'affiche et l'application se ferme.

Est ce que tu fait bien cela ?

Charly

[Linkin]

Pour une application Console sans fenetre DOS qui apparaisse, il faut enlever du .dpr la ligne

Code :

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

1
2
 
{$APPTYPE CONSOLE}

[tomy_libre]

salut les amis, dsl pour le retard , bon j'ai reglé le probleme, c un peut barbar mais ca marche eu moin, j'ai mis la propriété top en néguative : -1256 , cela met la forme hor de l'ecran je croit, et ca marche parfait

[edam]

salut les amis, dsl pour le retard , bon j'ai reglé le probleme, c un peut barbar mais ca marche eu moin, j'ai mis la propriété top en néguative : -1256 , cela met la forme hor de l'ecran je croit, et ca marche parfait

et si la résolution de l'écran dans la venir proche dépasse ces 1256