Discussion :

[Manusm]

Bonjour,

Je cherche le moyen de déplacer une Form dans un Panel. J'arrive à créer la form dans le panel mais par contre je ne peux pas le bouger, auriez vous une solution s'il vous plait ?

Merci

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
     feuille := TTest.Create(pnlform);
     feuille.Parent := pnlform;
     feuille.Show;
end;

[Manusm]

En fait je ne sais pas si je suis parti sur la bonne solution... J'aimerai créer des Tform dynamiquement et les placer dans un conteneur sans qu'elles puissent en sortir, mais pouvoir quand même les faire bouger librement dedans...

[tintinux]

Bonjour
A mon avis, ce serait plutôt une TFrame qui permettrait ce que tu souhaites.
C'est aussi un conteneur de tous les contrôles que tu veux.

[Andnotor]

C'est en cliquant sur la barre de titre de la fenêtre qu'on peut la faire bouger.

Si la fenêtre n'a pas de bordure, on peut tout de même leurrer le système en lui faisant croire que le curseur est bien positionné dessus.

Code :

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

1
2
3
4
5
6
7
8
9
10
type
  TTest = class(TForm)
  protected
    procedure WMNCHitTest(var Message :TMessage); message WM_NCHITTEST;
  end;
 
procedure TTest.WMNCHitTest(var Message: TMessage);
begin
  Message.Result := HTCAPTION;
end;

Bien sûr, il ne faut pas qu'il y ait un panel qui recouvre entièrement la fiche

[Manusm]

Bonjour,

Merci pour vos réponses. J'arrive à créer la form dans le panel, elle a bien des bordures et impossible de la faire bouger dedans... C'est peut etre une propriete du TPanel qui me coince...

je place l'exemple

unit1

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
 
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, unit2;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    pnl: TPanel;
    procedure Button1Click(Sender: TObject);
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
  fiche2 : TForm2;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  fiche2 := TForm2.Create(nil);
  fiche2.Parent:=pnl;
  fiche2.Show;
 
end;
 
end.

unit1 lfm

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
 
object Form1: TForm1
  Left = 346
  Height = 529
  Top = 119
  Width = 621
  Caption = 'Form1'
  ClientHeight = 529
  ClientWidth = 621
  LCLVersion = '1.8.4.0'
  object Panel1: TPanel
    Left = 0
    Height = 529
    Top = 0
    Width = 176
    Align = alLeft
    Caption = 'Panel1'
    ClientHeight = 529
    ClientWidth = 176
    TabOrder = 0
    object Button1: TButton
      Left = 32
      Height = 36
      Top = 8
      Width = 112
      Caption = 'Button1'
      OnClick = Button1Click
      TabOrder = 0
    end
  end
  object pnl: TPanel
    Left = 176
    Height = 529
    Top = 0
    Width = 445
    Align = alClient
    Caption = 'pnl'
    TabOrder = 1
    UseDockManager = False
  end
end

unit2

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
 
unit Unit2;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Edit1: TEdit;
  private
 
  public
 
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.lfm}
 
end.

unit2 lfm

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
 
object Form2: TForm2
  Left = 346
  Height = 177
  Top = 119
  Width = 237
  Caption = 'Form2'
  ClientHeight = 177
  ClientWidth = 237
  Position = poWorkAreaCenter
  LCLVersion = '1.8.4.0'
  object Edit1: TEdit
    Left = 45
    Height = 23
    Top = 61
    Width = 130
    TabOrder = 0
    Text = 'Edit1'
  end
end