Detection de deplacement d'une feuille

Version imprimable

07/01/2006, 11h20
avigeilpro

Detection de deplacement d'une feuille

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 :wink:
24/04/2007, 19h28
avigeilpro

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

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

Exemple:

Code:

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.

24/04/2007, 23h32
avigeilpro

J'avais pas vu qu'il y avait un évènement OnMoving :oops: :oops: :oops:
25/04/2007, 00h00
Pedro

Citation:

Envoyé par avigeilpro

J'avais pas vu qu'il y avait un évènement OnMoving :oops: :oops: :oops:

Non il n'y en a pas, c'est à toi de l'ajouter en suivant l'exemple de Fabrice ;)
25/04/2007, 00h55
avigeilpro

ok bon a savoir ;)