Discussion :

[miniil]

Bonjour,

J'aimerai pouvoir ouvrir un TForm dans un TPanel (par exemple suite à un clic sur un bouton). Est-ce réalisable avec les composants standards delphi ou existe-t-il un composant spécial pour effectuer cette manoeuvre.

D'avance merci pour votre aide.

[TicTacToe]

Bonjour,

oui c'est possible, il faut que le parent de la TForm soit le TPanel
Je joins un bout de code, surement a adapter:

Code :

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

1
2
3
4
5
6
          H := LaForme.Handle;
          SetWindowLong( H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) And Not WS_CAPTION);
          SetWindowPos( H, 0, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER);
          Windows.SetParent( H, LePanel.Handle); // Attanchement au container
          LaForm.WindowState := wsMaximized;
         end;

avec H: Cardinal

[Cl@udius]

Salut

Tu peux également regarder cette discussion.

En faisant une petite recherche tu serais forcément tombé dessus.

@+ Claudius

[miniil]

Ok, ceci à l'air de fonctionner après un test rapide...

Je vais essayer d'adapter le code pour que mon panel (ou la form) conserve le même bord (bevelinner).

Merci pour votre aide.

[miniil]

Petite remarque, lorsque j'applique la solution ci-dessus, la fenêtre principal "perd le focus", la barre de titre devient grisée plutôt que bleue par défaut.

Que faudrait-il changer?

[Archimède]

la fenêtre dans le panel ?
Elle est grise, mais elle reste utilisable. Tu peux la réduire, la fermer... et
l'utiliser.

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
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    f2:Tform;
    procedure click(sender:tobject);
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var button1:Tbutton;
begin
f2:=Tform.create(application);
f2.Parent:=panel1;
f2.Align:=alclient;
button1:=Tbutton.create(f2);
button1.parent:=f2;
button1.Caption:='&changer couleur';
button1.width:=100;
button1.OnClick:=click;
f2.Show;
 
 
end;
 
procedure TForm1.click(sender:tobject);
begin
F2.color:=clblue;
 
end;
 
end.

c'est uniquement la couleur qui te dérange ?

[Gilbert Geyer]

Bonjour,

Quel est donc l'intérêt d'ouvrir un TForm dans un TPanel ? Cela cacherait-il une astuce intéressante à utiliser ?

A+