Discussion :

[Invité]

Bonjour,

je trouve cela curieux :

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
uses
 [...]
  LMessages, LCLIntf;
type
  { TForm1 }
  TForm1 = class(TForm)
    PopupNotifier1 : TPopupNotifier;      
    Button4 : TButton;
    procedure Button4Click(Sender : TObject);
  private
    { private declarations }
    procedure WMMove(var Message: TLMessage); message LM_MOVE;
  public
    { public declarations }
  end;
var
  Form1 : TForm1;
 
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.WMMove(var Message: TLMessage);
begin
  Caption := Format('Position de la fiche x: %d, y: %d, l: %d, t: %d' ,
  [TLMMove(Message).XPos,TLMMove(Message).YPos, Form1.Left, Form1.Top]) ;
end;
 
procedure TForm1.Button4Click(Sender : TObject);
begin
  Showmessage('Position de la fiche : '+IntToStr(Form1.Left)+'/'+IntToStr(Form1.Top));
end; 
end.

Je clique une première fois sur le Button4 --> 365/125
Je bouge la Form1 à la souris. Dans son caption, TLMMove(Message).XPos,TLMMove(Message).YPos varient alors que Form1.Left, Form1.Top restent 'bloqués' à 365 et 125.

Je relâche le bouton de la souris et termine donc ainsi le mouvement de la fiche. Je clique une deuxième fois sur le Button4 --> 365/125. Evidemment c'est erroné.

1. Pourquoi Form1.Left et Top ne sont-ils pas réactualisés à ce moment ?
2. Comment les réactualise-t-on ?

Merci.
Cordialement. Gilles

[Invité]

Bon, j'ai réglé le problème. En réalité, il est lié à la présence d'un TPopupNotifier dont l'utilisation de Hide lors d'un déplacement de la Form bloque la réactualisation de Form1.Top et Left. Pourquoi ? Je n'ai pas le temps d'examiner plus le problème.

Finalement, j'utilise une procedure WMWindowPosChanged(var Message: TLMessage) ; message LM_WINDOWPOSCHANGED; pour lancer le Hide du TPopupNotifier;

Cordialement. Gilles