Discussion :

[cantador]

Bonjour,

Je déterre un vieux machin traité depuis longtemps.

voici le code :

Code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, Classes, Controls, Forms;
 
 
type
  TFMain = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Déclarations privées }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Déclarations publiques }
  end;
 
var
  FMain: TFMain;
 
implementation
 
{$R *.dfm}
 
procedure TFMain.CreateParams(var Params: TCreateParams);
begin
  BorderStyle := bsNone;
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
  Params.Style := Params.Style or WS_SIZEBOX;
end;
 
procedure TFMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssRight in Shift then
    Close;
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, $F012, 0);
end;
 
end.

Tout va bien, pas de souci de compil, pas de bug

la forme se déplace avec un clic de souris et je peux la redimensionner
MAIS le hic
les bordures de ma forme sont toujours là !

si je retire le CreateParams, alors les bordures s'en vont.

auriez-vous une solution à ce problème ?

@bientôt

[Andnotor]

Supprimer WS_EX_STATICEDGE ?

[cantador]

ça marche pas..

je pourrais utiliser un composant mais ça oblige à initialiser les actions avec des touches appuyées
ce que je ne veux pas.

et pourtant, il me semble que sous XP, ça marchait..

c'était mieux avant..

?

@+

[ThWilliam]

Bonjour,

Pour une fenêtre sans bordure sous D7, je n'implémente pas de procédure CreateParams.
Pour la déplacer : ton code MouseDown.
Pour la redimensionner, je "récupère" l'événement WM_NCHITTEST.

Voici un exemple de code (déplacement + dimensions) :

Code :

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
procedure WMNCHitTest(var msg: TWMNCHitTest); message WM_NCHITTEST;
 
procedure TForm1.WMNCHitTest(var msg: TWMNCHittest);
var
  pt: TPoint;
begin
  inherited;
  pt:= ScreenToClient(Point(msg.XPos, msg.YPos));
  if PtInRect(Rect(0, 0, ClientWidth-4, 20), pt) then
    msg.Result:= HTCAPTION  // déplacement
  else if PtInRect(Rect(ClientWidth-4, 4, ClientWidth, ClientHeight-4), pt) then
    msg.Result:= HTRIGHT    // redimensionnement droit
  else if PtInRect(Rect(ClientWidth-4, ClientHeight -4, ClientWidth, ClientHeight), pt) then
    msg.Result:= HTBOTTOMRIGHT    // redimensionnement par droit-bas
  else if PtInRect(Rect(4, ClientHeight -4, ClientWidth - 4, ClientHeight), pt) then
    msg.Result:= HTBOTTOM;    // redimensionnement par le bas
end;

Cordialement
Thierry

[cantador]

Bonjour,

Ah oui le PtInRect..
bravo ThWilliam !
Excellent !

merci

[cantador]

Code :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
procedure TFMain.WMNCHitTest(var msg: TWMNCHittest);
var
  pt: TPoint;
begin
  inherited;
  pt := ScreenToClient(Point(msg.XPos, msg.YPos));
 
{  if PtInRect(Rect(0, 0, ClientWidth - 4, 20), pt) then
    msg.Result := HTCAPTION // déplacement
  else    }
 
 
  if PtInRect(Rect(-4, -4, 4, 4), pt) then
    msg.Result := HTTOPLEFT // redimensionnement gauche-haut
  else
    if PtInRect(Rect(ClientWidth - 4, -4, ClientWidth, 4), pt) then
      msg.Result := HTTOPRIGHT // redimensionnement par droite-haut
    else
      if PtInRect(Rect(-4, 4, 4, ClientHeight - 4), pt) then
        msg.Result := HTLEFT // redimensionnement gauche
      else
        if PtInRect(Rect(-4, ClientHeight - 4, 4, ClientHeight), pt) then
          msg.Result := HTBOTTOMLEFT // redimensionnement par gauche-bas
        else
          if PtInRect(Rect(0, -4, ClientWidth, 4), pt) then
            msg.Result := HTTOP // redimensionnement par le haut
          else
            if PtInRect(Rect(ClientWidth - 4, 4, ClientWidth, ClientHeight - 4), pt) then
              msg.Result := HTRIGHT // redimensionnement droit
            else
              if PtInRect(Rect(ClientWidth - 4, ClientHeight - 4, ClientWidth, ClientHeight), pt) then
                msg.Result := HTBOTTOMRIGHT // redimensionnement par droit-bas
              else
                if PtInRect(Rect(4, ClientHeight - 4, ClientWidth - 4, ClientHeight), pt) then
                  msg.Result := HTBOTTOM; // redimensionnement par le bas
end;
 
à noter que du fait du MouseDown, le HTCAPTION n'a plus d'intérêt, sauf si on veut limiter le déplacement en cliquant dans le haut..
 
encore bravo pour cette piste !
 
@bientôt