procedure TForm2.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releaseCapture; ListBox1.Perform(WM_SYSCOMMAND,SC_MOVE+1,0); end;
procedure TForm2.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releaseCapture; ListBox1.Perform(WM_SYSCOMMAND,SC_MOVE+1,0); end;