Discussion :

[ben130978]

Bonjour,

J'utilise deux fenêtres indépendantes A et B dans la même appli.
A est une petite fenêtre d'information positionnée dans le bandeau en haut à droite de B.
Elles sont affichées en même temps.
Je voudrais que quand je déplace (ou redimensionne) B, A suive et reste à la même position dans sur B.
J'ai donc implémenté les évènements FormConstrainedResize et FormResize de B avec :

Code :

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

1
2
3
 
A.Left := Left+Width-80-A.width;
A.Top  := Top+5;

Ca marche bien : A suit B en cas de déplacement (sauf trop rapides) ou redimensionnement de B et reste à la même position, dans le bandeau en haut à droite......sauf sur Windows Server 2008.
C'est donc OK sur Vista, Seven, XP,...mais pas sur 2008...je ne comprends pas.

Je cherche donc soit à faire en sorte que cela marche aussi sur 2008...soit à trouver une solution plus adaptée (propre ?) pour lier la position de deux fenêtres.
Merci pour votre aide...

[popo]

Un peu de recherche ne fait pas de mal !

Allez voici le code que J-P-B m'a donné lorsque j'ai moi même posé la question et qui à résolu le problème.

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
procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED;
 
...
 
procedure TForm1.WMWindowPosChanged(var Message: TWMWindowPosChanged);
var
  oldTop: integer;
  oldLeft: integer;
begin
  oldTop := Top;
  oldLeft := Left;
  inherited;
  if assigned(form2) then
  begin
    Form2.top := Form2.top + Top - OldTop;
    Form2.left := Form2.Left + Left - OldLeft;
  end;
 
end;

A adapter au besoin

[ben130978]

C'est parfait ! Merci bcp !

Pour les recherche..j'en ai fait beaucoup...mais sans résultats avec les mots clefs que je rentrais...