Déplacer un contrôle en run-time

Salut,

Petit snippet qui permet à l'utilisateur de déplacer un contrôle (ici un TPanel) en exécution et de l'amener au premier plan :

Code:

---

1 2 3 4 5

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer); begin ReleaseCapture; Panel1.Perform(WM_SysCommand,$F012,0); end;

---

Pourquoi ne pas utiliser la constante dédiée SC_MOVE ?

ReleaseCapture, hum, c'est plus élégant que WM_LBUTTONUP :mouarf:

Code:

---

1 2 3 4 5 6

procedure TFrmTest.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel1.Perform(WM_LButtonUp, 0, 0); Panel1.Perform(WM_SYSCOMMAND, SC_MOVE + 2, 0); end;

---

dans la même veine, pour faire utiliser un Panel simulant un TSplitter, suffit de déplacer dans le sens contraire de l'Align ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TFrmTest.PanelSplitHorizontalMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SendMessage(PanelSplitHorizontal.handle, WM_LButtonUp, 0, 0); SendMessage(PanelTop.handle, WM_NCLButtonDown, HTBOTTOM, 0); end;   procedure TFrmTest.PanelSplitVerticalMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SendMessage(PanelSplitVertical.handle, WM_LButtonUp, 0, 0); SendMessage(PanelLeft.handle, WM_NCLButtonDown, HTRight, 0); end;

---

C'est un vieux code de mon maître d'apprentissage, les Splitter délimitant un Zone Mère MDI provoquait en D4 des erreurs d'affichage (on voyait dans zone MDI une sorte "d'écho" des splitters (double dessin)