Discussion :

[john anderta]

Bonjour,
je souhaiterais savoir comment on fait pour afficher une form sur Lazarus en fonction de l'onglet choisi via MainMenu.
Pour l'instant j'utilise les panels :
Quand on clique sur un onglet du main menu un panel apparaît et tous les autres deviennent invisibles.
Mais je ne suis pas sûr que ce soit la bonne méthode...
Pourriez-vous m'aider svp... Merci.

[tourlourou]

pourquoi ne pas afficher une fiche secondaire, modale ou pas selon qu'elle doit garder le focus ou laisser accessible ta fiche principale :

dans le MenuItem.Click :

Code :

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

1
2
3
4
5
with TFormSecondaireType1.Create do
try
  ShowModal; // ou Show;
finally
  Free;

ou, si les fiches sont déjà créées :

Code :

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

FormSecondaireType1.ShowModal; // ou Show;

[john anderta]

Merci, je vais essayer ton conseil et reviendrais pour dire ce que cela donne.
Je souhaiterai garder la même forme dans laquelle plusieurs "sous-forme" s'affiche selon le clique mainmenu.
Merci...

[tintinux]

Bonjour,

Je crois que poser un TPageControl sur la Form suffirait à te remettre de bonne humeur !

Dans ce composant, en cliquant-droit, tu pourras créer des onglets et tu ne devrais pas avoir besoin de MainMenu, à mon avis.

[john anderta]

Je pense que je vais opter pour cette solution même si elle ne correspondait pas vraiment à ce que je veux.
Dans le cas d'application complexe, je ne comprends pas comment on peut mettre un tas de composants sur une fiche dans la même form; pendant le développement il doit bien y avoir des solutions pour s'y retrouver...
Merci.

[SergioMaster]

il existe aussi la solution du docking !

Docker une forme dans une autre forme revient en gros a faire du MDI
Docker une forme dans un Panel revient un peu a la solution du PageControl

J'ai du en parler dans un des posts dans ce forum

[john anderta]

Salut, tu parles peut être de cette page : http://www.developpez.net/forums/d1138332/environnements-developpement/delphi/composants-vcl/utiliser-tpagecontrol/, je vais voir ça de plus près, merci...

[SergioMaster]

Non, ce post je l'avais jamais lu ! mais sur le forum Delphi j'ai parlé plusieurs fois du docking , ainsi que 2 fois dans le forum lazarus .

2 Vidéos pour t'aider : video 32
video 33
bien qu'en Anglais et Delphi , c'est grâce a ces dernières que j'ai découvert le docking de formes

ici quelques liens sur mes 'expériences' de docking
mdi vs docking
mes débuts
un peu de code

P.S. Il faudrait que je repasse sous Nux pour faire un exemple Lazarus , mais .... j'ai un peu la flemme

[Edit 11:15] je suis passer sous nux, histoire de tester , après une grosse galère avec lazarus 9.29 depuis ma mise à jour de Ubuntu , j'ai reinstaller laz 9.28 , et tester le docking
heureusement , il y a un bon wiki http://wiki.freepascal.org/Anchor_Do...forms_dockable
même si ceci fonctionne toujours

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var F2 : TForm2;
begin
  F2:=TForm2.Create(nil);
  f2.ManualDock(Pagecontrol1);
  f2.show;
end;