Fonction qui s'active lorsqu'un Form bouge

Je voudrais identifier la position d'un Form dans l'écran pendant le mouvement d'un Form, c'est à dire capter Form->Top dynamiquement.
Je compte sur vous et merci.

Xavier

A ma maigre connaissance, il n'y en a pas, mais tu peux utiliser un Timer pour regarder si le Form a Bougé.
Tu enregistres la position de ton form dans 2 variables et tu les compares à chaques timers avec la valeur actuelle.
Ca pourra peut-être te dépanner en attendant une meileure réponse.

bonjour :lol:

peut être que tu peux intersepter un message la l'API.

exemple d'évenement:

Citation:

---

Visualisation des messages avec «*WinSight32*»
Études de quelques messages

---

Code:

---

1 2 3 4 5 6 7 8 9

WM_CREATE WM_CREATE // Ce message est envoyé lors de la création de la fenêtre avant // qu ’elle soit visible WM_DESTROY // Envoyé lorsque l ’application termine et que la fenêtre est détruite WM_QUIT // Ce message indique une demande de terminer l ’application. // Il fait sortir le programme de la boucle des messages (message loop).

---

Citation:

---

Code d*’un programme Windows développé avec l*’API (Application Programming Interface)

---

peut être en existie une pour ce que tu cherche.

va voir dans

Citation:

---

Rubriques d'aide:Microsoft Programmer's Guide to Windows 95

---

(c'est dans l'aide du Builder)

bonne chance :wink:

Salut Xavier !

Voici je que j'ai fait avec BCB3 :

Form1 contient un TStatusBar et Form2 est la fenêtre dont on veut
connaître la position qui sera affichée dans StatusBar1 de Form1.
J'ai rajouté un "panel" dans le StatusBar en éditant sa propriété Panels.
L'astuce consiste à intercepter le message WM_WINDOWPOSCHANGING;

Dans le .h de Form2 déclarer :

Code:

---

1 2 3 4 5 6

protected : int __fastcall WINPOSCHANGING(TMessage Message);   BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_WINDOWPOSCHANGING, TMessage, WINPOSCHANGING) END_MESSAGE_MAP(TComponent)

---

Dans le .cpp de Form2

Code:

---

1 2 3 4 5 6

int __fastcall TForm2::WINPOSCHANGING(TMessage Message) { WINDOWPOS *lpwp = (WINDOWPOS*)Message.LParam; Form1->StatusBar1->Panels->Items[0]->Text = IntToStr(lpwp->y); return(0); }

---

Pour information :

Citation:

---

The WINDOWPOS structure contains information about the size and position
of a window.

typedef struct _WINDOWPOS {
HWND hwnd;
HWND hwndInsertAfter;
int x;//left
int y;//top
int cx;
int cy;
UINT flags;//Pour repaint etc...
} WINDOWPOS;

---

On peut sans doute améliorer ou simplifier car je ne maîtrise pas complètement
ce type de manipulation ! En tout cas, à ce stade, ça fonctionne.
A plus !