Discussion :

[2nd Floor]

Bonjour à tous,
voila j'ai mon application qui a pour fiche principale la FormMain, et dans cette formMain, sur le formshow, je lance la visualisation de la fiche de connexion, normal quoi.

Mais du coup, quand je ferme la fiche de connexion, j'ai quand meme une instance de fiche dans la barre des taches Windows 7 (une fiche toute grisée sans rien dessus et ma FormMain), et en plus je n'ai pas l'application dans mon gestionnaire d'applications mais juste le processus.

Qu'ais-je donc fais de mal ?
Merci

[Linkin]

Dans le source du projet(.dpr), quelle est la première form créée?

[Whiler]

fiche de connexion... elle est bizarre cette fiche...

Par défaut, je n'ai que ma fiche principale.. si je veux pouvoir prévisualiser une autre fiche, je suis obligé de modifier mon CreateParams...

Cette fiche est modale ? comment est-elle fermée ?

[Whiler]

Dans le source du projet(.dpr), quelle est la première form créée?

Pour rephraser Linkin :

Dans les options de ton projet, c'est spécifié comme ça ?

[2nd Floor]

Non pas du tout, j'ai deux Datamodules de créé en auto ainsi que ma FormMain, c'est tout.
Faut-il que je créé la FormConnexion d'office et que je la release dès la connexion finie ?

Merci

[Whiler]

fiche de connexion... elle est bizarre cette fiche...

Par défaut, je n'ai que ma fiche principale.. si je veux pouvoir prévisualiser une autre fiche, je suis obligé de modifier mon CreateParams...

Cette fiche est modale ? comment est-elle fermée ?

Tu peux la créer à la main.. ya pas de soucis... mais tu fais quoi concrètement ?

[2nd Floor]

Concretement :

(dans le MainForm.FormShow)

Code :

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

1
2
3
4
  fConnexion := TfrmConnexion.Create(Self) ;
  fConnexion.ShowModal ;
  if fConnexion.modalResult = mrCANCEL then
    Application.Terminate ;

(dans le FConnexion)

si mot de passe/utilisateur ok alors ModalResult := mrOK.

Merci

[Whiler]

Mais du coup, quand je ferme la fiche de connexion, j'ai quand meme une instance de fiche dans la barre des taches Windows 7

Concretement :

(dans le MainForm.FormShow)

Code :

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

1
2
3
4
  fConnexion := TfrmConnexion.Create(Self) ;
  fConnexion.ShowModal ;
  if fConnexion.modalResult = mrCANCEL then
    Application.Terminate ;

(dans le FConnexion)

si mot de passe/utilisateur ok alors ModalResult := mrOK.

et si ModalResult := mrOK, then... on ne voit pas ce que tu fais de ta fenêtre...

Dans le doute, j'testerais bien un truc de ce genre :

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
var
  fConnexion : TfrmConnexion;
begin
  fConnexion  := TfrmConnexion.Create(nil);
  try
    if fConnexion .ShowModal = mrOk then
    begin
      // stockage de user, pwd, connexion, ... enfin tout ce dont il y a besoin pour faire tourner l'appli...
 
 
    end
    else
    begin
      Self.Close;
//      Application.Terminate;
    end;
  finally
    fConnexion .Release;
  end;

[2nd Floor]

En effet ca tourne.
Je faisais bien un Close mais pas un Free/Release. Merci beaucoup.

Maintenant reste le problème que mon application n'est pas déclaré dans les applications lancées (CRTL+ALT+SUPPR -> Gestionnaire d'applications). Je vois bien le processus mais pas l'appli.

Une idée ? Merci

[Whiler]

Dans le source du projet.... (Depuis le Gestionnaire de projets, sélectionner le projet, toto.exe, et faire Ctrl V)

program Project2;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Si ça compile pas, c'est que tu as une très vieille version de Delphi...

[2nd Floor]

Ca compile, pas de soucis, mais aucun affichage de l'instance de mon application dans le gestionnaire d'évènements.

Par contre je le vois bien que je fais ALT/TAB pour zapper entre projets.
Bizarre non ?

[Whiler]

Cette procédure n'est pas déclarée dans la fiche ?

Code :

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

1
2
  protected
    procedure CreateParams(var Params: TCreateParams); override;

Sinon, sur ta fiche principale, si tu ajoutes dans le FormCreate:

Code :

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

Self.OnShow := nil;

Est-ce que l'affichage de la fiche se fait correctement ?

[2nd Floor]

Non pour le procedure CreateParams(var Params: TCreateParams); override;
et avec le code dans le FormCreate non, mais fiche ne se charge pas entièrement.

Merci

[Whiler]

ok pour createparams.. mais pas compris la suivante...

si tu commences ton formCreate par :

Code :

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

1
2
Self.OnShow := nil;
Exit;

Ton appli ne marche pas, mais est-ce que la fiche se voit dans les applications du Gestionnaire des tâches ?

[2nd Floor]

Ok j'avais pas compris.
La réponse est non on ne la vois pas dans le gestionnaire des taches.

[Whiler]

Bon... ben ça peut éliminer les trucs qui se passent dans le FormCreate et dans le FormShow... (et ça fait pas beaucoup avancer le schmilblick...)

Et si tu crées une nouvelle fiche... et que tu la définis comme étant ta MainForm... celle-ci apparait-elle normalement dans le gestionnaire des tâches ?

[2nd Floor]

Oui je confirme, j'ai bien la fiche dans le gestionnaire de taches.
Serait-ce une option que j'aurais désactivé dans ma FormMain ?
Merci à toi

[Whiler]

Que vaut la propriété BorderStyle de ta fiche principale ?

[2nd Floor]

bsSizeable, mais le BorderStyle ne joue pas la dessus quand meme non ?

[Whiler]

mais le BorderStyle ne joue pas la dessus quand meme non ?

Crée une nouvelle appli VCL et sur la fiche, définis BorderStyle à bsSizeToolWin ou bsToolWindow...

Exécute-la, et regarde les applications dans ton Gestionnaire des tâches...