Discussion :

[moustaf_26]

salut j'ai bien vu l'utilisation dans la faq, mais ce que je voudrais savoir si on peut charger le contenu d'une autre page(j'ai un formulaire avec des champs,bouttons) integrer cette page dans mon tpagecontrol.
ou bien faut-il reprendre en deposant les elements dans le tpagecontrol?
et j'aimerais savoir , y atil moyens de changer le fond, faire en sorte que ça ne soit pas blanc?merci

[Ph. B.]

Bonjour,

je voudrais savoir si on peut charger le contenu d'une autre page(j'ai un formulaire avec des champs,bouttons) integrer cette page dans mon tpagecontrol.
ou bien faut-il reprendre en deposant les elements dans le tpagecontrol?

Si j'ai bien compris , tu veux déplacer visuellement les contrôles (type TControl et descendants) d'une page (type TTabSheet) vers une autre.
Attention, tu peux changer le Parent (qui est chargé du dessin) mais pas le Owner (qui est chargé de la libération). On peut procéder comme suit:

Code :

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

1
2
3
  // Transfert des contrôles d'une page à une autre
  for i := TabSheet1.ControlCount - 1 downto 0 do
    TabSheet1.Controls[i].Parent := TabSheet2;

Attention aux effets de bord (du style je supprime TabSheet1 alors que ce contrôle possède toujours les contrôles qui ont été déplacés)

et j'aimerais savoir , y atil moyens de changer le fond, faire en sorte que ça ne soit pas blanc?merci

En gérant le message WM_ERASEBKGND
--
Philippe.

[moustaf_26]

Bonjour,Si j'ai bien compris , tu veux déplacer visuellement les contrôles (type TControl et descendants) d'une page (type TTabSheet) vers une autre.
Attention, tu peux changer le Parent (qui est chargé du dessin) mais pas le Owner (qui est chargé de la libération). On peut procéder comme suit:

Code :

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

1
2
3
  // Transfert des contrôles d'une page à une autre
  for i := TabSheet1.ControlCount - 1 downto 0 do
    TabSheet1.Controls[i].Parent := TabSheet2;

Attention aux effets de bord (du style je supprime TabSheet1 alors que ce contrôle possède toujours les contrôles qui ont été déplacés)En gérant le message WM_ERASEBKGND
--
Philippe.

en fait je pense que je me suis pas fait comprendre, j'ai un autre tform avec des composant la dessus(un formulaire), je decide apres pour un souci de navigation integre mon tform dans un tpagecontrol.

pour la couleur, comment utiliser WM_ERASEBKGND?

[Ph. B.]

Bonjour,

en fait je pense que je me suis pas fait comprendre, j'ai un autre tform avec des composant la dessus(un formulaire), je decide apres pour un souci de navigation integre mon tform dans un tpagecontrol.

En mode conception depuis l'EDI, je suppose ?
Par copier coller mais une partie du code dont la gestion évènementielle devra être repris manuellement...

pour la couleur, comment utiliser WM_ERASEBKGND?

En sous classant la classe TTabSheet, en introduisant la propriété Color et les méthodes qui vont avec dont la gestion du message WM_ERASEBKGND...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
// Déclaration
  TTabSheet = class(ComCtrls.TTabSheet)
  private
    FColor: TColor;
    procedure SetColor(Value: TColor);
    procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;
  public
    constructor Create(AOwner: TComponent); override;
    property Color: TColor read FColor write SetColor;
  end;
//...
// Implémentation
constructor TTabsheet.Create(AOwner: TComponent);
begin
  inherited;
  FColor := clBtnFace;
end;
 
procedure TTabsheet.SetColor(Value: TColor);
begin
  if FColor <> Value then
  begin
    FColor := Value;
    Invalidate;
  end;
end;
 
procedure TTabsheet.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
  If FColor = clBtnFace then
    inherited
  else
  begin
    Brush.Color := FColor;
    FillRect(Msg.DC, ClientRect, Brush.Handle);
    Msg.Result := 1;
  end;
end;
// ...
// Utilisation
procedure TForm1.FormCreate(Sender: TObject);
begin
  Tabsheet1.color := clBlue;
  TabSheet2.color := clRed;
end;

--
Philippe.

[Eryico]

Regarde ce lien il pourra t'aider
http://www.developpez.net/forums/d67...t/ouvrir-form/

bonne chance

[SergioMaster]

Pour 'intégrer la Forme dans un TpageControl' pourquoi ne pas utiliser le Docking ? (j'en suis devenu un fan , c'est une manière de ne pas utiliser le MDI parait-il obsolète)

procédure a suivre :

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
 
// TMain est la fenêtre  contenant un pageControl
//                                                   un bouton pour 'appeller' la form
// Form2 est la form a 'docker'
// TForm 'Modale  Classique' , non crée automatiquement par le projet
// ne pas oublier les OnClose de celle-ci etc... 
 
procedure TMain.Button1Click(Sender: TObject);
var F2 : TForm2;
begin
 // au cas ou 
 PageControl1.Visible:=true;
 // Création de la Form 
 F2:=TForm2.Create(self);
 // Docking de la Form
 F2.ManualDock(PageControl1);
 F2.Show;
 // se positionner sur l'onglet créé
 PageControl1.ActivePageIndex:=PageControl1.PageCount-1;
end;