Delphi实现窗体控件自由摆布

下载本文示例代码
天极IT资讯短信服务 电脑小技巧 function check4() { if (dn.mobile.value.length!=11) { alert("手机号码不正确!"); dn.mobile.focus(); return false; } return true; } 资费：包月5元手机： 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。 Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件 　　在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事：　　1、设置进入控件边缘的光标形状；　　2、改变控件的大小及位置；　　3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下：　　1、修改控件光标。只需要在进入控件的时候，将screen的cursor属性设置成对应形状即可，控件都有一个OnMouseMove事件，在这个事件中调用它就可以实现。我已经将它封装成函数如下： procedure CursorControl(Control: TControl; Shift: TShiftState; X, Y, Prec: integer);　begin　　//光标在控件的最左侧 　　if (X<=Prec) and (Y>Prec) and (Y=Control.Width-Prec) and (Y>Prec) and (YPrec) and (X=Control.Width-Prec) and (Y<=Prec) then Control.Cursor := crSizeNESW　　// 光标在控件的最下侧 　　else if (X>Prec) and (X=Control.Height-Prec) then Control.Cursor := crSizeNS　　// 光标在控件的左下角 　　else if (X<=Prec) and (Y>=Control.Height-Prec) then Control.Cursor := crSizeNESW// 光标在控件的右下角 　　else if (X>=Control.Width-Prec) and (Y>=Control.Height-Prec) then 　　　Control.Cursor := crSizeNWSE　　　// 光标在控件的客户区(移动整个控件)　　else if (X>5) and (Y>5) and (XPrec) and (Y=Control.Width-Prec) and (Y>Prec) and (YPrec) and (X=Control.Width-Prec) and (Y<=Prec) then SC_MANIPULATE := $F005　　　// 光标在控件的最下侧 　　else if (X>Prec) and (X=Control.Height-Prec) then SC_MANIPULATE := $F006　　　// 光标在控件的左下角 　　else if (X<=Prec) and (Y>=Control.Height-Prec) then SC_MANIPULATE := $F007　　　// 光标在控件的右下角 　　else if (X>=Control.Width-Prec) and (Y>=Control.Height-Prec) then SC_MANIPULATE := $F008　　　// 光标在控件的客户区 ( 移动整个控件 )　　else if (X>5) and (Y>5) and (X 天极IT资讯短信服务 电脑小技巧 function check4() { if (dn.mobile.value.length!=11) { alert("手机号码不正确!"); dn.mobile.focus(); return false; } return true; } 资费：包月5元手机： 介绍：细处着手，巧处用功。高手和菜鸟之间的差别就是：高手什么都知道，菜鸟知道一些。电脑小技巧收集最新奇招高招，让你轻松踏上高手之路。 Delphi关键字导航 网络 界面 多媒体 数据库 图像 控件 文件 硬件 　　在做Mis项目过程中，有时需要让用户自己来实现窗体控件的布局，比如酒店管理中就需要对餐厅餐桌位置进行布局。要实现这种功能，必须做好三件事：　　1、设置进入控件边缘的光标形状；　　2、改变控件的大小及位置；　　3、保存窗体控件的位置及状态，窗体下次启动时重新设置它们的这些信息。具体步骤如下：　　1、修改控件光标。只需要在进入控件的时候，将screen的cursor属性设置成对应形状即可，控件都有一个OnMouseMove事件，在这个事件中调用它就可以实现。我已经将它封装成函数如下： procedure CursorControl(Control: TControl; Shift: TShiftState; X, Y, Prec: integer);　begin　　//光标在控件的最左侧 　　if (X<=Prec) and (Y>Prec) and (Y=Control.Width-Prec) and (Y>Prec) and (YPrec) and (X=Control.Width-Prec) and (Y<=Prec) then Control.Cursor := crSizeNESW　　// 光标在控件的最下侧 　　else if (X>Prec) and (X=Control.Height-Prec) then Control.Cursor := crSizeNS　　// 光标在控件的左下角 　　else if (X<=Prec) and (Y>=Control.Height-Prec) then Control.Cursor := crSizeNESW// 光标在控件的右下角 　　else if (X>=Control.Width-Prec) and (Y>=Control.Height-Prec) then 　　　Control.Cursor := crSizeNWSE　　　// 光标在控件的客户区(移动整个控件)　　else if (X>5) and (Y>5) and (XPrec) and (Y=Control.Width-Prec) and (Y>Prec) and (YPrec) and (X=Control.Width-Prec) and (Y<=Prec) then SC_MANIPULATE := $F005　　　// 光标在控件的最下侧 　　else if (X>Prec) and (X=Control.Height-Prec) then SC_MANIPULATE := $F006　　　// 光标在控件的左下角 　　else if (X<=Prec) and (Y>=Control.Height-Prec) then SC_MANIPULATE := $F007　　　// 光标在控件的右下角 　　else if (X>=Control.Width-Prec) and (Y>=Control.Height-Prec) then SC_MANIPULATE := $F008　　　// 光标在控件的客户区 ( 移动整个控件 )　　else if (X>5) and (Y>5) and (X 下载本文示例代码


Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布Delphi实现窗体控件自由摆布