Discussion :

[SergioMaster]

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 ?

[SergioMaster]

Première partie résolue par une petite astuce

Avant de fermer la form je la déstocke

Code :

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

1
2
 
 ManualFloat(Rect(0,0,0,0));

et là , les évenements du PageControl (onChange,onChanging,onundock) fonctionnent

Peut-être pas très élégant mais efficace

[mballasse]

Bonjour,

Cela fonctionne très bien.
En plein phase de test, je trouve cela très intéressant, toutefois je me pose une question pour laquelle je sèche un peu
Comment juste empécher le "undocking sauvage" ?

je voudrais que la fiche soit OBLIGATOIREMENT fermée par un bouton fermer (ça c'est ok je sais faire) et qu'on ne puisse pas la sortir du "docking "

Michel

[SergioMaster]

Bonjour,

Comment juste empécher le "undocking sauvage" ?

enlever le (dragkind:=dkDock) ou plutôt ne pas le renseigner !

[mballasse]

Ok mais on ne peut pas laisser la propriété vide
Et a quel endroit sur les forms enfant ou sur la pagecontrol ?

Petit complément d'information ça marche nickel avec le TPageControl standard, mais cela ne marche pas avec le TcxPageControl (DevExpress)
Je vais fouillasser pour comprendre pourquoi cela ne marche pas

[SergioMaster]

hum , oui désolé , j'ai répondu un peu (trop) vite.

C'était bien évidemment au niveau du pagecontrol de la forme principale
par ne pas le renseigner , je voulais dire laisser à la valeur défaut c.a.d dkdrag
et enfin après avoir regarder dans mes programmes je laisse (dans ces cas là) la propriété (toujours de pagecontrol) docksite à false

[mballasse]

Ok tout est nickel même avec le TcxPageControl, j'ai du glisser merdé dans la mise en place
Merci en tout cas pour votre aide je vais pouvoir migrer mes 350 fiches