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;
今天分享的是一个文字按钮链接,当鼠标悬浮时,线条会发生动态变化的效果。
关于文章:文章包含以下部分:对鼠标拖动实现控件移动的原理详解使用类将功能封装适用于:
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M