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.