Discussion :

[rec82]

bonjour .
lorsque je démare mon application ,des fenêtre secondaire s'affiche avec la form principale de mon application ,sachant que les fenêtres secondaires sont des fenêtres programmé avec des FORM.show;

Code :

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
 
 
procedure TForm1.Agentsdintervention1Click(Sender: TObject);
begin
form9.show;
end;
 
procedure TForm1.Listesdesclients1Click(Sender: TObject);
begin
form8.show;
end;
 
procedure TForm1.Users1Click(Sender: TObject);
begin
form11.show;
end;

les formes :9 et 11 s'affiche automatiquement avec la fenêtre principale FORM1.
A+

[peter27x]

Salut,
tu peux tenter de les rendre "cachées" dans le onCreate de ton Main.
Form9.Hide, etc...

[Charly910]

Bonjour,

plutôt dans le OnShow, sinon ça va planter ?

A+

Charly

[Charly910]

tu as peut être une application MDI ? (FormStyle = fsMdiForm)

dans ce cas, il faut supprimer les create des fenêtres filles dans le projet

il faut ensuite les créer et les supprimer en tant que besoin dans ton appli

A+

Charly

Sinon tu mets les propriétés Visible de Form9 et 11 à False

[peter27x]

Bonjour,

plutôt dans le OnShow, sinon ça va planter ?

A+

Charly

Ha mince, je reprends le Delphi que depuis peu, du coup j'ai perdu quelques reflexes apparemment... c'est sûr que si les forms secondaires n'ont pas été créées dans le create du main lorsque l'on tente d'y faire un form9.hide, alors ça va poser problème...

[SergioMaster]

Quel rapport avec une Base de Données ?
le Sous forum Débutant ou Langage serait certainement plus idoine.

dans ce cas, il faut supprimer les create des fenêtres filles dans le projet
il faut ensuite les créer et les supprimer en tant que besoin dans ton appli

Que ce soit MDI ou non !

par exemple ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Agentsdintervention1Click(Sender: TObject);
var F : TForm9;
begin
 F:=TForm9.Create(nil); // nil ou Self ou Form1 a voir selon ce qui est souhaité
 try
  f.show;
 finally
  F.Free;
 end;
end;

[Charly910]

Bonjour Serge,

je ne comprends pas ce que tu dis ? on a bien le droit de faire des Application.CreateForm dans le projet ? (sans excès)

c'est ce que fait l'EDI, automatiquement quand on créé une nouvelle fiche.



A+

Charly

[peter27x]

Quel rapport avec une Base de Données ?
le Sous forum Débutant ou Langage serait certainement plus idoine.

Je pense qu'il s'est tout simplement trompé de section.

[rec82]

bonjour .
merci pour votre aide ,je vais faire les testes .
cordialement