在delphi中实现控件的拖拽

提示：可以添加一个布尔来控制可否拖动的状态，这里提供所有都能拖动的方法。

1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2   Shift: TShiftState; X, Y: Integer);
3 begin
4   ReleaseCapture;
5   SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
6 end;

时间： 2024-12-20 16:08:12

在delphi中实现控件的拖拽的相关文章

Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决

Delphi中WebBrowser控件打开部分网站报"Invalid floating point operation”解决 EmbeddedWBWebBrowserDelphi 最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“Invalid floating point operation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句 WebBrowser1.Navigate(Edit1.Text);貌似很多含有Silverlight

ToolStrip控件左右拖拽移动效果实现

1.主窗体下部添加一个Panel乘放ToolStrip控件以实现ToolStrip在窗体下部定位.2.当ToolStrip控件中子控件超出屏幕时,拖动控件可以实现滑动效果.拖动到控件边缘距窗体边缘1/3宽度时(可设),自动回弹.拖动控件边缘在屏幕内时释放鼠标,控件自动回弹,边缘吸附窗体边缘.3.当ToolStrip控件中子控件数目较少可以在屏幕上完全显示时,拖动效果不可见.4.增加添加.删除按钮,点击时可增删一个ToolStripButton,方便拖动效果可见(ToolStrip控件中子控件

怎样在delphi中实现控件和窗体的拖拽

下面这2种方法都能实现对控件和窗体的拖拽方法1 procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,0); end; 方法2 public { public declarations } posX, p

在delphi中ocx控件的安装

第一步: 使用过Activex的人都知道,Activex不注册是不能够被系统识别和使用的,一般安装程序都会自动地把它所使用的Activex控件注册,但如果你拿到的一个控件需要手动注册怎么办呢?如果修改注册表那就太麻烦了,在Windows的system文件夹下有一个regsvr32.exe的程序,它就是Windows自带的Activex注册和反注册工具.它的用法为: regsver32详解 regsvr32 [/s] [/n] [/i(:cmdline)] dllname 其中dllname为ac

Delphi中Undac控件连接MYSQL数据库问题总结

1.数据库挂到cxgrid上,中文显示不正确我调试了好长时间,怀疑是编码问题,mysql的编码方式我都试过了,都不可以. 解决问题过程: (1).在dos系统下进入mysql数据库输入show variables like 'char%'; 我考虑可能是character_set_connection的编码有问题,于是开始设置它的编码方式,但是,这个编码方式重新启动数据库还是原来的编码方式.当然可以mysql数据库配置文件中设置,但是不是这个原因. (2).考虑到可能是数据库字符集编码方式问题

Delphi中基本控件之SaveDialog控件的使用总结

首先向Form窗体拖一个SaveDialog控件,Name属性改为:dlgSave,然后添加一个按钮,Caption属性改为:浏览,Name属性改为:btnBrowse. 然后双击浏览按钮添加如下代码: procedure Tfoffertool.btnbrowseClick(Sender: TObject); var filePath :string; begin dlgSave.Title := '保存文件路径'; //设置浏览对话框标题名 dlgSave.Filter:= '文本文件(*.

[转]Delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法

procedure TForm1.Button1Click(Sender: TObject); var jpg: TJPEGImage; // 要use Jpeg单元 begin // 显示jpg大图片的方式 jpg := TJPEGImage.Create; jpg.LoadFromFile(getcurrentdir() + '\pic.jpg'); Image1.Picture.Bitmap.Assign(jpg); // 因为 img 控件是基于bmp的 jpg.Free; end; p

winform上控件的拖拽小结

这里罗列出几个相关的事件和属性,具体的实现介绍已有非常优秀的文章了,文章末尾我将会给出,大家可以去参考. 属性: AllowDrop: 目标控件必须设定为true,才能接受拖拽来的东西. 事件: ItemDrag: 源控件在拖动开始时发生.在这里需调用DoDragDrop方法开始拖拽行为. DragEnter:目标控件接受到拖拽行为时发生.在这里可以通过e.Effect设定目标控件能接受的拖拽行为. DragOver:目标控件接受到拖拽行为时不间断发生.在DragEnter后触发.这里不可做耗时

HTML5 02. 多媒体控件、拖拽事件、历史记录、web存储、应用程序缓存、地理定位、网络状态

多媒体 video:是行内块(text-align: center; 对行内块适用) <figure></figure>: 多媒体标签 : <figcaption></figcaption>: 多媒体标题方法: load() 加载.play()播放.pause()暂停属性: currentTime 视频播放的当前进度. duration:视频的总时间. paused:视频播放的状态事件: oncanplay:事件在用户可以开始播放视频/音频(aud