Discussion :

[gobgob]

Bonjour,

J'aimerais déplacer deux fenetres (et plus) de façon simultané : si je deplace form1 alors form2 doit se deplacer de la même façon que form1 et en meme temps.

Comment puis je le faire ?

PS : J'utilise deja FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);


Merci !

[Sub0]

Salut!

Il faut selon moi au départ sauver la position de la form1 pour calculer l'offset.
Puis utiliser l'évènement WM_MOVING comme ceci par exemple :

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
Unit Unit1;
Interface
Uses Windows, Messages, SysUtils, Variants, Classes, Graphics,
     Controls, Forms, Dialogs;
 
Type
  TForm1 = Class(TForm)
    Procedure FormShow(Sender: TObject);
    Procedure WMMoving(Var msg: TMessage); message WM_MOVING;
  End;
 
Var
  Form1: TForm1;
 
{----------------------------------------------------------------}
{                       }Implementation{                         }
{----------------------------------------------------------------}
{$R *.dfm} Uses Unit2, Unit3;
 
Var SavPos: TPoint;
 
{----------------------------------------------------------------}
Procedure TForm1.FormShow(Sender: TObject);
Begin
  Form2.Show;
  Form3.Show;
  SavPos := Point(Form1.Left, Form1.Top);
End;
 
{----------------------------------------------------------------}
Procedure TForm1.WMMoving(Var msg: TMessage);
Begin
  Form2.Left := Form2.Left + Form1.Left - SavPos.X;
  Form2.Top := Form2.Top + Form1.Top - SavPos.Y;
  Form3.Left := Form3.Left + Form1.Left - SavPos.X;
  Form3.Top := Form3.Top + Form1.Top - SavPos.Y;
  SavPos := Point(Form1.Left, Form1.Top);
End;
 
{----------------------------------------------------------------}
End.

[gobgob]

Bonjour et merci de me répondre,

J'ai regardé ton code source, et j'ai la très nette impression que j'ai fait la même chose. Le resultat est que lors du deplacement de Form1, la Form2 est deplacée uniquement quand Form1 n'est plus déplacée.

Clarifions : Si je bouge Form1 de 30 pixel sur la gauche, Form2 ne sera deplacé de 30 pixels vers la gauche QUE lorsque je lacherai mon clic sur la form1.

Or j aimerais que pendant le deplacement de Form1, Form2 se deplace aussi plutot que d attendre la fin du deplacement pour se repositionner !

[Sub0]

En réalité, si tu executes mon code tel quel avec des foms vierges, tu t'appercevras que les 3 forms se suivents lorsqu'on déplace Form1. En résumé, avec ce code, l'ensemble des forms se déplace simultannément (j'avais bien compris ta demande de départ). Hélas, si tes forms sont chargées de composants et d'objets, windows va mettre un certain temps avant de redessiner l'ensemble, ce qui a pour effet un déplacement saccadé...

[gobgob]

Ha ok autant pour moi, je vais donc la fermer et regarder de plus près ton code .

Merci du coup de main !

[Sub0]

Je possède une meilleure méthode via FormMouseDown pour le déplacement des forms mais je ne suis pas arrivé à l'utiliser pour ton problème... Je te donne le code, essaye de l'adapter :

Code :

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

1
2
3
4
5
6
Procedure TForm1.FormMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  ReleaseCapture;
  Perform(WM_SysCommand, $F012, 0);
End;

[gobgob]

Merci pour cette solution que je tenterai des que possible. En attendant, la solution que j ai offre au moins l avantage d etre moins gourmande en performance, ce que je favorise.

Encore merci.

Dois je mettre le topic en resolu? ou le laisser tel quel?

[Sub0]

la solution que j ai offre au moins l avantage d etre moins gourmande en performance

Si tu le dis...

Ajoute le tag résolu lorsque tu estimeras le sujet terminé, à+

[gobgob]

Si tu n es pas de cet avis, explique pourquoi s'il te plait.

Mon point de vue est le suivant : demander le deplacement d'une fenetre de 300 pixel sur la gauche et bien moins violent que de deplacer 300 fois la fenetre de 1 pixel sur la gauche.

[Sub0]

http://www.developpez.net/forums/sho...d.php?t=159322

Dans le sujet ci-dessus, nous avons pu tester toutes les méthodes de déplacement de 2 forms superposées. Celle que j'ai utilisé et qui est la plus performante (et de loin) est la dernière que je t'ai proposé. Un conseil, si tu as la possibilité, teste le résultat de ton code avec un PC pas très puissant, à+

[gobgob]

Donc je regarderai plus en détail.

Merci à tout le monde de votre aide !