Detection de deplacement d'une feuille

**avigeilpro** · 07/01/2006, 11h20

Bonjour
J'aurais voulu savoir s'il existait une facon de savoir si une feuille est déplacée, un evenenent par exemple.
En fait je souhaite faire en sorte que lorsque je deplace une feuille, une autre reste "collée" à elle et se deplace en meme temps si possible.
Merci d'avance

**avigeilpro** · 24/04/2007, 19h28

Je réouvre ce vieux sujet pour donner une solution et le noter résolu :
Un timer avec un interval très court, deux variables Left et Top, à chaque interval, on regarde si les coordonées Left et Top de la feuille sont différentes des variable, si elle le sont la feuille a bouger et on remet à jour les variables. Simple mais c'est quand même une méthode dite "bulldozer"

**Fabrice ROUXEL 1** · 24/04/2007, 19h51

Sinon il y a toujours la possibilité d'intercepter le message WM_MOVING

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
42
43
44
45
46
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
 
  TWMMoving = record
    Msg: Cardinal;
    fwSide: Cardinal;
    lpRc: PRect;
    Result: LongInt;
  end;
 
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
  protected
    procedure OnMoving(var Msg: TWMMoving); message WM_MOVING;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
{ TForm1 }
 
procedure TForm1.OnMoving(var Msg: TWMMoving);
begin
  with Msg.lpRc^ do
   begin
     Label1.caption := IntToStr(Left);
     Label2.caption := IntToStr(Top);
   end;
end;
 
end.