[Langage/Algorithme] deplacer une Form en cliquant ailleurs que sur la barre de titre

Voici un code qui permet de deplacer une Form en cliquant ailleurs que sur la barre de titre
le.h

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
 
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public:  // User declarations
     __fastcall TForm1(TComponent* Owner);
     void __fastcall OnNcHitTest(TMessage &MsgTst);
     BEGIN_MESSAGE_MAP
     MESSAGE_HANDLER(WM_NCHITTEST, TMessage, OnNcHitTest)
     END_MESSAGE_MAP(TForm);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

le.cpp

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <conio.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnNcHitTest(TMessage &MsgTst)
{
if (GetAsyncKeyState (VK_LBUTTON) <0)
{
MsgTst.Result = HTCAPTION;
}
else
{
MsgTst.Result = HTCLIENT;
}
}