Discussion :

[Manopower]

Bonjour,
j'aimerais savoir si quelqu'un connaissait la syntaxe pour redimenssionner une fenêtre qui a borderStyle = bsNone

En effet, sur cette fameuse fenêtre j'ai un panel en haut sur lequel en cliquant on déplace la fenêtre grâce à

Code :

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

1
2
3
4
5
6
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SysCommand, SC_MOVE, 0);
end;

Et j'aimerais si possible avoir un TShape de 3 pixels de large sur chaque coté et en bas pour permettre de redimenssionner ma fenêtre quand on clique dessus !

Ce serait simple de mettre BorderStyle = BsSizeable mais on veut faire autrement

Merci d'avance pour vos lumières !

[Manopower]

Hmmm, la réponse était presque dans la FAQ !

http://delphi.developpez.com/faq/?pa...#deplacerfiche

Avec une recherche rapide sur MSDN

http://msdn.microsoft.com/library/de...testretval.asp

On peut donc modifier la solution de la FAQ qui permet de déplacer la fenêtre de la façon suivante pour qu'elle redimenssionne la fenêtre du coté droit :

La zone sensible est donc toute la zone du bord droit de la fenêtre à 5 pixels ou moins du bord !

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.WMNCHitTest(var msg: TWMNCHittest);
var
  pt: TPoint;
begin
  inherited;
  pt:= ScreenToClient(Point(msg.XPos, msg.YPos));
  if PtInRect(Rect(ClientWidth-5, 0, ClientWidth, ClientHeight), pt) then
    msg.Result:= HTRIGHT;
end;

Il suffit de rajouter 2 autres tests et on pourra redimenssionner toute la fenêtre comme si elle avait des bordures !

Yabon pour la FAQ !