Move Panel

[danten]

Hi all.
I have a form in it Panel1 and therein PanelA + PanelB + PanelC.

panelA = alLeft, panelB = alLeft, panelC = alLeft.
I need to drag the mouse to change the position of the panel (A, B or C).

Anhang 38959

Thanks all.

[Perlsau]

Where is your problem?

[danten]

When I use PanelA.MouseDown, so panel moves, but when MouseUp not aligned alLeft.

Delphi-Quellcode:

procedure Tmain.PanelAMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then 
begin
  ReleaseCapture ();
  SendMessage (PanelA.Handle, $ A1, 2, 0);
end;

procedure Tmain.PanelAMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ???? EndCapture ??? 
end;

[Perlsau]

Sorry, I don't understand your code and what it should do ...

[Bummi]

Delphi-Quellcode:

procedure TForm6.AllPanelsMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
   Realign;
end;

[danten]

Zitat:

Zitat von Bummi (Beitrag 1211343)

Delphi-Quellcode:

procedure TForm6.AllPanelsMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
   Realign;
end;

OK, that's fine.Do I need the OnMouseUp to moving the panel aligned alLeft.

[danten]

OK, solved.

Delphi-Quellcode:

if Button = mbLeft then
  begin
    ReleaseCapture();
    sendmessage(TPanel(Sender).Handle, WM_NCLBUTTONDOWN, 2, 0);
    Realign;
    TPanel(Sender).Align := alLeft;
  end;

Thanks all.
Daniel