Discussion :

[trilo]

Bonjour à tous,

Je me lance sous Lazarus depuis quelque jours, c'est tout neuf. J'ai lu quelques tutoriaux et pas mal navigué sur le forum sans trouver l'information. J'en suis encore à afficher un message ou fermer le programme avec un bouton ....

J'aimerais développer une petite application simple (pour commencer!) avec quelques fenêtres :

1 fenêtre principale + quelques boutons permettant d'accéder aux autres fenêtres.
L'idéal, serait que la fenêtre 2 remplace la fenêtre 1 et vice-versa, sans que ce soit une nouvelle fenêtre ouverte par dessus pour ne pas en avoir une multitude d'ouvertes à la fin d'utilisation du programme.

Je ne demande pas la réponse, mais au moins une petite piste svp ?
Merci à tous pour votre aide

Trilo.

[trilo]

Finalement je me réponds à moi même partiellement. J'ai réussi à ouvrir une nouvelle fenêtre avec :

Code :

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

1
2
3
4
procedure TForm1.Button3Click(Sender: TObject);
begin
  Form2.show;
end;

Et en déclarant la fenêtre dans uses :

Code :

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

unit2;

Reste en suspend cette question, comment ouvrir la fenêtre en remplacement de la fenêtre 1 ?
Merci beaucoup.

[tourlourou]

le contraire de TForm.Show est TForm.Hide, qui cache une fiche ; tous les deux agissent sur la propriété booléenne TForm.Visible

[parhelie]

Bonsoir Trilo,
La réponse à ton problème ne serait pas d'avoir plusieurs onglets dans une seule fenêtre?
(Common controls -> TPageControl)

[Ph. B.]

Bonjour,

Reste en suspend cette question, comment ouvrir la fenêtre en remplacement de la fenêtre 1 ?
Merci beaucoup.

Par exemple, comme ceci :

Code :

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

1
2
3
4
5
procedure TForm1.Button3Click(Sender: TObject);
begin
  Self.Hide; // ou Self.Visible := False;
  Form2.Show; // ou Form2.Visible := True;
end;

Attention la fenêtre appelante identifiée par Self, de type TForm1, est juste rendue invisible et pas libérée (et donc pas supprimée)... Fermer Form2 ne fermera pas l'application...
--
Philippe.

[trilo]

Merci à tous pour votre aide, ça fonctionne parfaitement !