Discussion :

[Tchaill39]

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 ?

[MedGIR]

Bonjour,

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

[Tchaill39]

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 !!!!!!

[Fabrice ROUXEL 1]

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.

[Tchaill39]

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

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"

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

[Tardiff Jean-François]

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é ?