Problème de docking.

Bonjour à vous,

A la création d'une fenetre A, je viens forcer une fenetre B à l'interieur d'un panel de A. Mon problème est le suivant : Si je modifie la taille du panel qui contient la fenetre B, je n'ai pas de réaffichage correct de la fenetre B.
Quelqu'un a-t-il une idée ?

Bonjour,

Essai de mettre la propriété align de la fenetre B avec la valeur suivante : alClient

J'ai déjà essayer, mais ca change rien. Le seul moyen pour moi est de re-forcer le docking. C'est pas normal. Normalement, en modifiant la taille, étant donné que l'écran est lié au panel, il devrait se rafraichir !!!!!! 8O

bonjour,


Postes une portion du code que l'on puisse raisonner sur du concret,
parce que là la notion de re-forcer le docking et d'écran lié au panel n'est pas très clair.

Sinon il ya un exemple de docking dans le répertoire démos de Delphi.

Dans un premier temps, initialisation des propriétés du panel qui recois la fenetre :

Citation:

---

Procedure Init_Panel_DrapDrop (Panel :TPanel; const Redimensionnable, Interdire_le_Drag_And_Drop : boolean;
const Orientation : TDockOrientation =doNoOrient);
{ Concerne les panels qui accueillent SOUS-ECRANS qui sont dockés dans PARFRAISE.}
{ PRINCIPE du DRAG & DROP : il faut renseigner le options suivantes dans }
{ la fenêtre qui va être dockée, et dans le conteneur qui va l'accueillir : }
{ | Conteneur | Fenêtre }
{ ----------------+---------------------+---------------------- }
{ .DockSite | TRUE/False | False }
{ .DragCursor | | }
{ .DragKind | dkDrag | dkDock }
{ .DragMode | dmAutomatic | dmAutomatic/dmManual }
{ .UseDockManager | True | False }
begin
If(Panel=Nil)Then EXIT;

{--- Pour GLISSER-EMPILER ----}
Panel.Visible:=True; { Dock ne marche pas si = False }
Panel.DockSite:=True; { Ce panel peut contenir des fenêtres }
Panel.DockOrientation:=Orientation; { (doNoOrient, doHorizontal, doVertical) }
Panel.UseDockManager:=True;
Panel.Autosize:=False; { Le panel n'apparait que lorsqu'il contient une fenêtre }
If(Not Redimensionnable)Then
begin
Panel.UseDockManager:=False; { Masque la barre de la fenêtre (=========[x]) }
Panel.DockSite :=False; { Libère l'espace réservé à la barre de la fenêtre }
end;
end;

---

Apres on Dock la fenetre "Form" dans "PanelSimul2D"

Citation:

---

begin
Form:=frmVisu_Simulation; { Fenêtre }
DockSite := PanelSimul2D;
end;

---

Je répete le souci : Si on modifie la taille du panel : Pas de refresh de la fenetre dockée

Bonnjour,
Avez vousforcer un align (alTop, alLeft, alRight, alBottom, AlClient, AlNone) à la fenêtre mis dans le panel?

Siu l'align est AlNone, pourquoi le fenêtre changerai' elle automatiquement de taille avec lorsque la taille du panel est modifié ?