Gestion des tailles externes des TForm

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

quelqu'un sait-il comment on gère la taille externe des TForm ?

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  F01, F02, F03: TForm;
  iW, iH: Integer;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  iW := 200; iH := 100;
 
  F01:= TForm.Create(Application);
  F01.Parent := Self;
  F02:= TForm.Create(Application);
  F02.Parent := Self;
  F03:= TForm.Create(Application);
  F03.Parent := Self;
 
  with F01 do  begin
    Left   := 0;
    Top    := 0;
    Width  := iW;
    Height := iH;
    //SetBounds(0, 0, iW, iH);
    Show;
  end;
 
  with F02 do  begin
    Left   := iW +1;
    Top    := 0;
    Width  := iW;
    Height := iH;
   //SetBounds(iW+1, 0, iW, iH);
    Show;
  end;
 
  with F03 do  begin
    Left   := 0;
    Top    := iH +1;
    Width  := iW;
    Height := iH;
   // SetBounds(0, iH +1, iW, iH);
    Show;
  end;
end;
 
end.

Résultat :
Pièce jointe 262631

Je voudrais placer F01, F02 et F03 bord à bord sous Windows, Linux et OS X. Je cherche une méthode portable plutôt que l'utilisation de constantes de correction.

Merci. Cordialement. AD.

1 pièce(s) jointe(s)

Bonjour,

J'ai déplacé ton code du gestionnaire d'évennement OnCreate vers celui de OnShow puis j'ai apporté quelques petites modifications (voir code modifié ci-dessous). Et là ça marche en tout cas sous Windows. Je n'ai pas testé sous d'autres plateforme.

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
procedure TForm1.FormShow(Sender: TObject);
begin
  iW := 200; iH := 100;
  F01:= TForm.Create(Application);
  F01.Parent := Self;
  F02:= TForm.Create(Application);
  F02.Parent := Self;
  F03:= TForm.Create(Application);
  F03.Parent := Self;
 
  with F01 do  begin
    Left   := 0;
    Top    := 0;
    Width  := iW;
    Height := iH;
    //SetBounds(0, 0, iW, iH);
    Show;
  end;
 
  with F02 do  begin
//    Left   := iW +1;
    Left   := F01.Width + 1 ;
    Top    := 0;
    Width  := iW;
    Height := iH;
   //SetBounds(iW+1, 0, iW, iH);
    Show;
  end;
 
  with F03 do  begin
    Left   := 0;
//    Top    := iH +1;
    Top    := F02.Height +1;
    Width  := iW;
    Height := iH;
   // SetBounds(0, iH +1, iW, iH);
    Show;
  end;
end;

Pièce jointe 262681

A+

10/04/2017, 00h01
Jipété

Yop !

Citation:

Envoyé par hmira

Je n'ai pas testé sous d'autres plateformes.

Testé sous Linux Debian 32 bits, aucune des fiches "enfant" ne s'affiche. Aucune.
10/04/2017, 10h26
ApproxDev

Bonjour,

oui, probablement un problème de gnome semble-t-il : http://forum.lazarus-ide.org/index.php?topic=34661.0
Cordialement. AD.
10/04/2017, 13h59
thewolf

Bonjour.

L'exemple avec les fenêtres filles fonctionne bien chez moi (XP). En revanche, si je pars d'une application vierge et que j'ajoute une 2ème fenêtre, j'ai le même problème de chevauchement.

Exemple :
form1 : left=500 et width=200
form2 : left=701

je dois mettre 708 pour que les bords se touchent (à 709 : petit espace)

Bizarre !