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;
暂无评论
2023-12-11
2023-12-11
2023-12-11
2023-12-02
2023-12-02
2023-11-30
2023-11-30
2023-11-30
2023-11-30
2023-11-30
2024-05-20
2024-05-20
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-18
2024-05-17
2024-05-17
2024-05-17
2024-05-17
2024-05-17