提示：可以添加一个布尔来控制可否拖动的状态，这里提供所有都能拖动的方法。
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; SendMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,); end;
相关文章
- 移动端的拖拽排序在react中实现 了解一下
- Java线程池实现原理及其在美团业务中的实践（转）
- Winform主菜单两种实现方式-1.）从工具箱中双击MenuStrip控件，窗体的顶部就会放置一个MenuStrip控件，或者在工具箱中单击MenuStrip控件,拖至窗体中也可以. 2.）在MenuStrip的“Type Here”输入主菜单和菜单名字，热键用（&X）表示. 用快捷键选择主菜单，可以用Alt + 预定义的按键来实现，子菜单的选择只需要按定义的热键即可. 3.）双击File*菜单下面的子菜单，创建子菜单Open、Save、Exit的单击事件代码： private void OpenOToolStripMenuItem_Click(object sender, EventArgs e) { OpenFileDialog ofd = new OpenFileDialog { //初始化打开对话框的路径 InitialDirectory = @"D:\", Title = "Open File", //定义可显示的文件类型； Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*", //定义默认显示的文件类型为txt FilterIndex = 1, //对话框关闭后将复位初始化路径 RestoreDirectory = true }; if (ofd.ShowDialog == DialogResult.OK) { //根据打开对话框选择的文件名，加载文本内容到富文本框中. richtxtContent.Text = File.ReadAllText(ofd.FileName); } } private void SaveSToolStripMenuItem_Click(object sender, EventArgs e) { SaveFileDialog sfd = new SaveFileDialog { //初始化保存对话框的路径 InitialDirectory = @"D:\", Title = "Save File", //定义可显示的文件类型； Filter = "txt file(*.txt)|*.txt|All file(*.*)|*.*", //定义默认显示的文件类型为txt FilterIndex = 1, //对话框关闭后将复位初始化路径 RestoreDirectory = true }; if(sfd.ShowDialog == DialogResult.OK) { //保存文件 File.WriteAllText(sfd.FileName, richtxtContent.Text); //清空富文本框内容 richtxtContent.Clear; } } private void exitEToolStripMenuItem_Click(object sender, EventArgs e) { Application.Exit; } 4．）执行下程序，加载指定的txt文件到富文本框中，如下： 5.）在富文本框中更新加载进来的txt文件内容. 6.）Alt + F热键打开文件的下拉菜单，单击S保存富文本框中的内容到指定的文件.打开txt验证菜单单击事件保存文件成功. 二．实现winform主菜单的方法2：MenuStrip类和toolStripMenuItem类实例化对象，在主窗体加载事件中实现如下代码：
- 转 update关联更新在sqlserver和oracle中的实现
- 转 Delphi中XLSReadWrite控件的使用(2)---基本应用
- 转Delphi中XLSReadWrite控件的使用(3) 读和写Excel
- 转Delphi中XLSReadWrite控件的使用(1)---简介
- 怎样在delphi中实现控件和窗体的拖拽
- 在WORD中，如何实现选中一个CheckBox控件后，这个控件所在行的表格可以改变背景色
- TMsgThread, TCommThread -- 在delphi线程中实现消息循环（105篇博客，好多研究消息的文章）