borderstyle:none , aber trotzdem fenstergröße ziehen?

[borderstyle]

Hallo, gibt es eine möglichkeit bei borderstyle none trotzdem die veränderfunktion am fenster zu belassen wie normal?

Habe da schon etwas herumgespielt, und einen 4 linien (rahmen) darum zeichnen lassen, aber irgendwie will das nicht... ( habe es bis jetzt nur die rechte seite, und das klappt gar nicht so schön wie normal...
hier der code:

//---------------------------------------------------------------------------
void __fastcall TForm::FormMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{   if(X >= Form->Width-4)
    {   Form->Cursor = crSizeWE;
        if(klick) Form->Width += X - x;
        x=X;
    }
    else if(Y >= Form->Height-4)
    {   Form->Cursor = crSizeNS;
    }
    else
    {   Form->Cursor = crDefault;
        klick = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm::FormMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{   if(X >= Form->Width-4 || Y >= Form->Height-4)
       klick = true;

}
//---------------------------------------------------------------------------

x ist ein int variablen aus der klasse, zum speichern des vorherigen wertes, damit man weiß ob nach links oder rechts...

hoffe es ist klar was gemeint ist, freue mich auf jede antwort

Gruß

[borderstyle#2]

Also den rahmen habe ich hinbekommen, das war nicht gemeint.. xD
Ich habe Probleme die Seiten per Maus zu verändern... quasi Fenstergröße

[sizer]

Meinst du sowas ?

class TForm1 : public TForm
{
__published:	// Von der IDE verwaltete Komponenten
protected:
void __fastcall CreateParams(TCreateParams &Params)
{
   TForm::CreateParams(Params);
   Params.ExStyle = Params.ExStyle | WS_EX_STATICEDGE;
   Params.Style=Params.Style | WS_SIZEBOX;
}
private:	// Anwender-Deklarationen
public:		// Anwender-Deklarationen
   __fastcall TForm1(TComponent* Owner);
};