Déplacer un contrôle en run-time

[Caribensila]

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;

[ShaiLeTroll]

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

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

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)