Comme devoirs de vacances , je me lance dans le docking (objectif : me passer du MDI qui est , parait-il, obsolète)
Pas de soucis , coté création et stockage dans un TPageControl d'une form principale
Code création d'une forme : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TMainForm.BitBtn1Click(Sender: TObject); var F : TUneForm; begin F:=TUneForm.Create(Application); F.ManualDock(PageControl1); F.Show; PageControl1.ActivePageIndex:=PageControl1.PageCount-1; end;
Une Form (dragkind:=dkDock) contient un Bouton pour Fermer celle-ci , plus
Code libération de la form : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TUneForm.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end;
par contre reste un problème : comment passer à l'onglet précédant lorsque je détruis une forme ?
Il semblerai que dans ce cas , je passe toujours au premier onglet du Tpagecontrol , cependant ni l'évènement OnChange , ni le OnChanging ne semblent être "stimulés"
Question subsidiaire : Ne vais je pas avoir des problèmes de libération de mémoire ?
Partager