Discussion :

[mobee]

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.

[CGi]

Redefinit la fonction CreateParams de TForm1

Code Unit.h :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
void __fastcall CreateParams(TCreateParams& Params);

Code Unit.cpp :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
void __fastcall TForm1::CreateParams(TCreateParams& Params)
{
  TForm::CreateParams(Params);
  Params.Style = WS_POPUP | WS_SIZEBOX;
}

[mobee]

Nikel !
Merci CGi.

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

[CGi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
void __fastcall TForm1::OnNCPaint(TMessage &Message)
{

}

[CGi]

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 Unit1.h :

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
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 Unit1.cpp :

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
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;
}