Bonjour,

Tout est dans le titre

Une appli dispose d'un TPanel occupant toute la Form. Sur ce Panel, on peut en créer d'autres, et les déplacer.
Jusque là, ça marche...

Maintenant, je voudrais que lorsque la souris se trouve dans l'angle inférieur-droit d'un panel créé, le clic+move ne déclenche pas le déplacement (je cherche à redimensionner).

Je détecte bien la position de la souris dans la zone (avec changement du curseur), mais le clic provoque le StartDrag
D'ailleurs, j'ai affecté:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Pnl.OnMouseDown:=SubPanelMouseDown;
mais la proc n'est jamais appelée:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.SubPanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var   i:Integer;
begin
     if ssLeft in Shift then begin
       if Sender is TMonPnl then
           if (Sender as TMonPnl).IsMouseInSizeZone(Point(x,y)) then
              StatusBar1.Panels[3].Text:='Dim' ;
 
     end;
end;
J'ai aussi essayé de jouer avec le DragKind => désastreux ! (le dkNone aurait été utile).

Bref, si qq'un a la solution, je suis preneur.