TPanel et Docking

Version imprimable

15/09/2003, 11h08
kwuy

TPanel et Docking

hello!!
mon pb est un peu compliqué
j'ai 1 mainform dans laquelle j'ai 1 composant TPanel
j'ai 1 form2
je voudrais qu'à l'affichage de ma mainform, ma form2 s'affiche dans mon composant TPanel et qu'elle soit déjà dockée (simplement parceque je voudrais pouvoir afficher plusieures autres formes dans ce composant)
est-ce possible ?
si oui quelqu'un pourrait-il m'aider ?
Pour docker 1 form pas de pb mais je voudrais que cela soit automatique sans intervention de l'utilisateur
Merci d'avance
15/09/2003, 14h01
phenixauthor

salut,

Tu peux faire ça :

Dans le oncreate de ta form2, tu mets :

form2.parent:=form1.panel1;

A toi ensuite de gerer la position de form2 ( et la taille ) dans ton Tpanel...
15/09/2003, 14h38
kwuy

re

merci du tuyau je vais essayer

Pour gerer facilement les tailles et les positions, tu peux aussi utiliser la propriete align.
alClient pour que ca prenne tout le panel
alTop, alBottom, alCenter si tu veux en combiner 3 par exemple.

Sinon, j'avais fait ca dans un programme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
procedure TDockeur.DockFenetre(f: TForm);
var     ff:tcontrol;
        p:tpoint;
begin
if f=nil then exit;
if listedock.Count>0
        then begin
                f.Position:=poDesigned;
                ff:=tcontrol(listedock[listedock.count-1]);
                p:=DockSiteDialogue.ClientOrigin;
                f.top:=ff.top+p.y+ff.Height;
                f.Left:=p.x;
                f.ManualDock(docksitedialogue);
                if akBottom in f.Anchors then
                begin
                    f.Height:=DockSiteDialogue.Height-5;
                end;
        end
 
        else begin
                f.Left:=0;
                f.top:=0;
                f.ManualDock(docksitedialogue, nil, albottom);
                if akBottom in f.Anchors then
                begin
                    f.Height:=DockSiteDialogue.Height-5;
                end;
        end;
listedock.Add(f);
f.show;
end;

ListeDock contient la liste des forms qui sont dans le panel. Quand on ajoute une form, elle est ajoutee en dessous de la derniere.
Mes forms on un borderStyle bsNode, mais je ne sais pas si c'est vraiment necessaire.