Fenêtre redimensionnable mais sans la barre de titre ?Résolu

Question

Bonjour et bonne ann&#233;e  !!!!

Est-ce qu'il existe un moyen "simple" de faire une form qui soit redimensionable (comme avec BorderStyle=bsSizeable) mais sans avoir la barre de titre (comme avec BorderStyle=bsNone) 

Merci d'avance

cs_flagada · Accepted Answer

c'est bon j'ai trouv&#233;, je cache la barre de titre avec ceci :

            { Cache la barre de titre de la Form }
    Style := GetWindowLong(Handle, GWL_STYLE); // M&#233;morise le style courant
    Style := Style and not WS_CAPTION;         // Retire au Style courant l'affichage de la barre de titre
    SetWindowLong(Handle, GWL_STYLE, Style);   // Effectue la modification

et apr&#232;s si je veux d&#233;placer ma form je fais comme &#231;a :

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    LastX := X;
    LastY := Y;
end;
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if ssLeft in Shift then  // bouton gauche souris enfonc&#233;...
    begin
        Top  := Top + Y - LastY;
        Left := Left + X - LastX;
    end;
end;

d&#233;sol&#233; pour le post inutile

Cirec · Answer

pour d&#233;placer la form fait &#231;a (de la part de Nicolas___)

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ReleaseCapture;
  form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;



@+
Cirec

Fenêtre redimensionnable mais sans la barre de titre ?

2 réponses

Votre réponse

Discussions similaires