Discussion :

[mick605]

Salut a tous

Je suis en train de développer une application de tchat sur réseau local. L'application est composée de 2 fiches, une fiche "accueil" et une fiche "client". La premiere fiche permet de se logger et de vérifier si le serveur permet la connection. Elle s'apparente à la fenetre de connection de MSN. La deuxième fiche permet l'envoi et la réception de messages ... Les deux fenetres ne peuvent pas être affichées en meme temps. En premier s'affiche la fiche accueil, puis quand on clique sur connecter, la fiche client s'affiche, et l'autre se masque. Quand je clique sur déconnecter, l'accueil s'affiche et l'autre se masque.

Mon probleme est le suivant : je voudrais que la fiche affichée se comporte comme si elle était la "MainForm" : c'est a dire que si on la réduit, elle se réduise, et que quand on la restaure, elle se restaure.

J'ai commencé par mettre la fiche "accueil" en fiche principale : j'affiche la deuxieme fiche en Show, et je masque la premiere. Sauf que si je réduit la fiche "Client", l'application n'est pas réduite ! En fait, il reste toujours la fiche "Accueil", mais invisible ...

J'aimerais aussi que la fiche Client ne soit pas créée au démarrage ... Donc je ne peux pas la définir comme fiche principale.

Enfin, j'ai trouvé une technique qui permet de changer la propriété MainForm qui est pourtant en lecture seule :

Code :

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

1
2
3
4
5
6
7
procedure SetAsMainForm(aForm:TForm);
var
  P:Pointer;
begin
  P := @Application.Mainform;
  Pointer(P^) := aForm;
end;

Avec ca, ca marche a peu près, mais je récupere des "Erreurs abstraites" qui me semblent liées à ca ...

Ma question est la suivante : comment faire une application avec 2 fiches, donc chacune se comporte comme si elle était la mainform ?

Merci d'avance

[ShaiLeTroll]

N'utilise pas CreateFom dans le DPR pour créer la fenêtre d'accueil ...
ensuite tu as forcément une seule mainForm, mais tu peux faire en sorte que lorsque l'on ferme la seconde cela ferme l'appli aussi, ou inversement, tu peux faire en sorte que tant que la seconde n'est pas fermé, tenter de fermer la principal ne fait que la réduire ...

tu peux aussi avoir un mainForm "invisible", et les deux fenêtre secondaires
Voir SetWindowLong pour cacher les fenêtres ...

[mick605]

Salut

Merci pour cette réponse, mais il y a plusieurs problèmes a cela :

ensuite tu as forcément une seule mainForm, mais tu peux faire en sorte que lorsque l'on ferme la seconde cela ferme l'appli aussi, ou inversement, tu peux faire en sorte que tant que la seconde n'est pas fermé, tenter de fermer la principal ne fait que la réduire ...

Je ne veux pas récupérer l'évenement OnClose, car ca, ca ne me pose pas de problemes. Le truc, c'est que j'aimerais récupérer l'évenement OnMinimize de la Form qui n'est pas principale. Or, cette form n'a pas d'évenement OnMinimize ... De plus, l'évenement OnHide ne fonctionne pas, et OnDesactivate ne fonctionne pas si la form principale n'est pas visible .

tu peux aussi avoir un mainForm "invisible", et les deux fenêtre secondaires
Voir SetWindowLong pour cacher les fenêtres ...

J'y avais aussi pensé, mais il reste le meme probleme : comme la form principale est invisible, il n'y a pas d'évenement OnMinimize associé aux forms secondaires ...

Je n'ai pas réussi à utiliser correctement SetWindowLong. F1 ne reconnait pas, et sur internet, c'est pas bavard. Pour cacher la fenetre, j'ai essayé :

Code :

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

1
2
3
FClient.Hide;
FClient.Visible:=False;
ShowWindow(FClient,SW_HIDE);

Mais rien n'y fait, je suis toujours incapable de récuperer l'évenement OnMinimize de la form secondaire.

Quelle form me conseillerais tu de mettre en principale ? Sachant que l'accueil doit être affichée en premier, et que la fiche client sera le plus souvent celle utilisée ...

Merci

[Paul TOTH]

je te conseille de mettre la fenêtre de chat en principal, et le login en secondaire. à priori le login est obligatoire, il peut être affiché par un ShowModal au lancement non ?

cela peut aussi être la même fenêtre qui contient deux panels ou deux cadres

[Cl@udius]

cela peut aussi être la même fenêtre qui contient deux panels ou deux cadres

+1

Je ne verrais qu'un fiche principale affichant alternativement 2 frames.

@+ Claudius

[mick605]

Pas mal, je pensais que cette solution n'était pas élégante ... Mais comme vous pensez ca, j'y songerai plus tard

Pour l'instant, je pense choisir la solution de Paul, celle du ShowModal ... J'avoue ne pas avoir pensé a ca ... Bien vu. Le seul hic, c'est que ma form client sera créée au démarrage ... Tant pis ...

J'en profite, avant le résolu : Quelle différence entre Form2.Close, Form2.Free et Form2.Destroy ? Sachant que Form2 est une form secondaire ?

En tout cas, Merci a tous

[Paul TOTH]

Pas mal, je pensais que cette solution n'était pas élégante ... Mais comme vous pensez ca, j'y songerai plus tard

Pour l'instant, je pense choisir la solution de Paul, celle du ShowModal ... J'avoue ne pas avoir pensé a ca ... Bien vu. Le seul hic, c'est que ma form client sera créée au démarrage ... Tant pis ...

J'en profite, avant le résolu : Quelle différence entre Form2.Close, Form2.Free et Form2.Destroy ? Sachant que Form2 est une form secondaire ?

En tout cas, Merci a tous

Form2.Close ferme la fiche...ça passe par OnCloseQuery, OnClose et la fiche ne sera détruite que si Action vaut caFree.

Form2.Destroy est la destruction de l'objet

Form2.Free c'est la même chose sauf que l'objet test que Self <> nil avant d'appeler Destroy (c'est le cas de tous les objets Delphi, pas simplement des fiches)

Ceci dit, une fiche se détruit normalement par Form2.Release
la différence est que c'est la seule méthode que l'on peut invoquer sans problème depuis une méthode de Form2...le cas typique est le bouton "close" qui détruit la fiche sur laquelle il est assis

[ShaiLeTroll]

Close c'est la fermeture visuel de la Form
Close appelle Hide ou Release (un Free différé) selon les actions du OnClose

Free c'est la méthode de libération dîte protégée qui appelle Destroy (c'est aussi une méthode non virtuelle, ce qui a un intérêt tout particulier, son adresse relative est ainsi toujours la même pour n'importe quel objet)

Destroy c'est le destructeur, son utilisation doit être uniquement dans le cadre d'un héritage et d'une surcharge du destructeur

[mick605]

Ok, Merci pour vos éclaircissement ....

J'ai un autre probleme. Si j'appelle la Form Accueil en showmodal pendant le FormCreate de FClient, elle se met automatiquement comme MainForm, alors qu'en conception, j'ai bien réglé sur FClient...

Code :

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

1
2
3
4
5
6
procedure TFClient.FormCreate(Sender: TObject);
begin
  Application.CreateForm(TFAccueil, FAccueil);
  FAccueil.ShowModal;
  ShowMessage(Application.MainForm.Caption);
end;

Me retourne FAccueil ... Vous auriez une solution pour ca ? L'avantage de mettre le showmodal dans le formCreate, c'est que le Fclient n'est pas affiché pendant ce temps ...

[Andnotor]

OnCreate survient pendant le processus de création, MainForm n'a pas encore été assigné ! TFAccueil est la première finalisée, donc celle choisie par Application.

Cet appel devrait résoudre ton problème:

Code :

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

1
2
3
4
procedure TFClient.FormCreate(Sender: TObject);
begin
  FAccueil := TFAccueil.Create(Self); 
end;

Ou alors, tu détruit FAccueil AVANT de sortir de OnCreate.

[mick605]

Merci de ta réponse Andnotor Problème résolu !