Discussion :

[kwuy]

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

[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...

[kwuy]

merci du tuyau je vais essayer

[_gtm_]

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 :

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

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.