引言： 在应用程序的开发中，常常要将某些控件对象(如标签)用鼠标选中后进行拖动操作，用以改变控件的位置，在Delphi中如何实现这一功能呢？笔者想了一个方法：通过在 public 中定义全局变量用以跟踪 鼠标在移动和拖动控件时的坐标，然后在拖动结束时将鼠标的坐标值赋给控件的 TOP和LEFT属性，以达到...
摘要：single, double和extended型的浮点变量存在着四舍五入问题。举个例子，假设我们用电脑使用4位数字，那么：
1 / 3 = 0.3333
我们知道3 * 1/3 = 1，但如果我们这样：
x := 1 / 3;
x := x * 3;
if x = 1 then //结果将会不正确
为什么？因为x = 0.9999而不是1。
电脑不会有无限的小数位。从s......
摘要： procedure parkdisk;
var regs: registers;
begin
regs.al := $00;
intr($13,regs);
assert((regs.flags and fcarry) = 0,
error getting disk parameters - al returns +inttostr (regs.al,0));
reg......
在Delphi应用程序中拖动控件上一页 ...
4.在程序的开头部分声明全局变量 x_panel,y_panel,x_label,y_label,其中,x_panel,y_panel :鼠标在panel1上的坐标;x_label,y_label :鼠标在label1上的坐标.
注:这里分别获取在panel1与label1上的坐标是为了更精确地计算出label1实际的移动距离. 【程序编程相关:
怎样做sql server数据库的还原
】 【推荐阅读:
Delphi7程序中上下文关联chm帮助】
5.在panel1的ondragover 与onmousemove 事件中添加如下代码: 【扩展信息:
在delphi中使用xml文档有两种方】
x_panel:=x;
y_panel:=y;
注:该操作是获得 mouse 在panel1上的坐标.
6.在label1的onmousemove 事件中添加如下代码:
x_labell:=x;
y_label1:=y;
注:该操作是获得 mouse 在label1上的坐标.
7.在label1的onenddrag 事件中添加如下代码:
label1.left :=x_panel－x_label;
label1.top :=y_panel－y_label;
说明:两者相减是为了求得 label1 实际的移动距离.
8.创建一个对象 button1 ,并在其 onclick 事件中添加如下代码:
close; //用以关闭应用程序.
好了,现在运行程序,测试一下结果.
以下是程序源代码,在delphi3.0.windows95/98中测试通过.
unit test_move;
interface
uses ...
下一页 摘要：program fastcopy;
{$a+,b-,d-,e+,f+,g+,i-,l-,n+,p-,q-,r-,s-,t-,v-,x-,y-}
{$m 16384,$10000}
const
maxbufcnt = 1000;
type
bufptr = ^bufrec;
bufrec = array[0..8190] of byte;
var
infile,......
