Discussion :

[moechofe]

Bonjour,

Je tente de créer une nouvelle Form que je dock à la volé dans une nouvelle TabSheet d'un PageControl d'une autre nouvelle Form.

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
var
  Controleur: TGeneraleFenetre;
  Editeur: TMemoFenetre;
  Page: TTabSheet;
begin
  Controleur:= TGeneraleFenetre.Create(Application);
  Editeur:= TMemoFenetre.Create(Application);
  Page:= TTabSheet.Create(Controleur.EditeurOnglets);
  Page.PageControl:= Controleur.EditeurOnglets;
  Page.TabVisible:= true;
  Page.Visible:= true;
  Editeur.Parent:= Page;
  Controleur.EditeurPage.PageControl.ActivePage:= Page;
  Controleur.Show();
  //Editeur.ManualDock(Controleur,Page,alClient);
  //Editeur.Show();
end;

Le but étant d'avoir plurieurs fenêtres du même type. Si je les Dock les une au autre, le contenu de la première (un Memo) se retrouve docker dans le PageControl de la seconde.

En décommentant le deux dernières lignes, le Memo apparaît mais posé n'importe.

[edam]

Je tente de créer une nouvelle Form que je dock à la volé dans une nouvelle .

veux dire dock????

[moechofe]

Non, c'est bien une nouvelle Form. J'essaye de me baser sur l'example fourni par Borland (qui date un peu).

J'ai deux Forms :

• L'une avec plein de gadgets, des boutons, des menus, et un PageControl.
• L'autre avec uniquement un Memo.

Je Drag&Dock la Form2 (avec le Memo) dans la Form1 (sur le PageControl), que j'aimerais réaliser en code, et non pas à la souris.