Redimensionnement en BsNone

Bonjour à vous !
Est-il possible de redimensionner une fenêtre en BorderStyle=BsNone ?
J'entend pas là, comment puis faire pour que l'utilisateur final puisse changer la taille de la fenêtre de la même façon qu'avec les fenêtres en BsNormal ?

En vous remerciant.

Redefinit la fonction CreateParams de TForm1

Code:

---

1 2	void __fastcall CreateParams(TCreateParams& Params);

---

Code:

---

1 2 3 4 5 6

void __fastcall TForm1::CreateParams(TCreateParams& Params) { TForm::CreateParams(Params); Params.Style = WS_POPUP | WS_SIZEBOX; }

---

Nikel !
Merci CGi.

Est-il possible de faire disparaitre les bordures qui sont visibles lorsque l'on utilise cete methode ?

Une piste :

Tu intercepte le message WM_NCPAINT (C'est le message de dessin de la zone non client d'une fenêtre)

Tu lui associe une fonction membre (OnNCPaint dans l'exemple)
Que tu laisse vide (c'est à dire qui ne dessine rien)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

class TForm1 : public TForm { __published: // Composants gérés par l'EDI private: // Déclarations de l'utilisateur void __fastcall CreateParams(TCreateParams& Params); void __fastcall OnNCPaint(TMessage &Message); public: // Déclarations de l'utilisateur __fastcall TForm1(TComponent* Owner); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_NCPAINT, TMessage, OnNCPaint); END_MESSAGE_MAP(TForm); };

---

Code:

---

1 2 3 4 5

void __fastcall TForm1::OnNCPaint(TMessage &Message) { }

---

Une autre solution est de gérer toi même les dimensionnements :


Par exemple sur les événements OnMouseDown, OnMouseUp et OnMouseMove D'une Form ayant son BorderStyle à bsNone :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

class TForm1 : public TForm { __published: // Composants gérés par l'EDI void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y); void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y); private: // Déclarations de l'utilisateur bool SizeH; bool SizeV; public: // Déclarations de l'utilisateur __fastcall TForm1(TComponent* Owner); };

---

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

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if (X>(Width-8) && Button == mbLeft) SizeH = true; if (Y>(Height-8) && Button == mbLeft) SizeV = true; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { if(SizeH == true) Width = X; if(SizeV == true) Height = Y; if (X>(Width-8)) Cursor = crHSplit; else if (Y>(Height-8)) Cursor = crVSplit; else Cursor = crDefault; } //--------------------------------------------------------------------------- void __fastcall TForm1::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { SizeH = false; SizeV = false; }

---