Form dans Panel

Version imprimable

11/01/2019, 16h13
Manusm

Form dans Panel
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:

1 2 3 4 5 6 procedure TForm1.Button1Click(Sender: TObject); begin feuille := TTest.Create(pnlform); feuille.Parent := pnlform; feuille.Show; end;
11/01/2019, 19h17
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...
12/01/2019, 09h01
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.

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:

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 ;)

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:

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:

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:

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:

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