Discussion :

[ApproxDev]

Bonjour,

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

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
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 :


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.

[hmira]

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 PASCAL :

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

A+

[Jipété]

Yop !

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

Testé sous Linux Debian 32 bits, aucune des fiches "enfant" ne s'affiche. Aucune.

[ApproxDev]

Bonjour,

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

[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 !