|
Registriert seit: 19. Feb 2012
Ort: Czech Republic, Prag
126 Beiträge
Delphi 10.1 Berlin Architect
|
AW: Move Panel
13. Apr 2013, 08:57
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.
Daniel
|