Bonjour,

J'ai un TShape de forme rectangle avec pour contour un pointillé rouge et un fond transparent.

J'arrive à le déplacer en cours d'exécution avec le code suivant :
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
 
procedure TMain.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     if ssLeft in Shift then
     begin
          PosX := X;
          PosY := Y;
     end;
end;
 
procedure TMain.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     if ssLeft in Shift then
     begin
          Shape1.Left := Shape1.Left + X - PosX;
          Shape1.Top := Shape1.Top + Y - PosY;
     end;
end;
Je voudrais pouvoir également le redimensionner (affichage des flèches de redimensionnement sur la bordure) pendant l'exécution mais je ne sais pas comment m'y prendre.

Avez-vous une méthode pour faire ce genre de chose ?

Merci,
ZiP