file://创建军于2004.6.15file://作者：透明墨豆（昵称）file://QQ:33125083file://说明：本程序是从《“磁性”窗口》--- wujian2的文章修改的，原因是原文章不全和file://有错误，并且觉得有不完善的地方,如不能分辨出两窗口是否在同一个区域,...

开发技术指南» 文章正文

引言： file://创建军于2004.6.15file://作者：透明墨豆（昵称）file://QQ:33125083file://说明：本程序是从《“磁性”窗口》--- wujian2的文章修改的，原因是原文章不全和file://有错误，并且觉得有不完善的地方,如不能分辨出两窗口是否在同一个区域,...

·com程序编写入门(全文-2) »显示摘要«

摘要： com的理论以实例来讲 com的接口（interface）是com的核心，所有的com接口都是通过iunknown派生出来的，它告知客户那些接口是有效的，即已经被实现类说定义。它定义的一般方式如下： isimpleinterface=interface(iunknown) function getname:string procedure setname(v_name:strin......

·delphi使用vb6编写的activex控件？？？ »显示摘要«

摘要：以下是我在vb6编写的activex控件wjprnview.ocx,注册并导入delphi5的开发环境后，delphi生成的wjprnview_tlb.pas文件，其没有生成twjprnview类，也没有注册面板上，无法使用，请问有方法吗？ unit wjprnview_tlb; // *****************************************************......

“磁性”窗口新篇

file://创建军于2004.6.15

file://作者:透明墨豆（昵称）【程序编程相关:Delphi快捷键】

【推荐阅读:自来水公司收费管理系统升级】

file://qq:33125083 【扩展信息:给DBGrid添加鼠标滚动事件】

file://说明:本程序是从«“磁性”窗口»--- wujian2的文章修改的,原因是原文章不全与

file://有错误,并且觉得有不完善的地方,如不能分辨出两窗口是否在同一个区域,不能

file://停靠屏幕边缘等.但此程序还有不足之处,如窗口form不能跟随winamp的窗口一起移动

file://希望大家多多指教,这是我第一篇文章.

file://详细的说明请看原文

unit unit1;

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, stdctrls;

type

tform1 = class(tform)

button1: tbutton;

procedure button1click(sender: tobject);

procedure formmousedown(sender: tobject; button: tmousebutton;

shift: tshiftstate; x, y: integer);

procedure formmousemove(sender: tobject; shift: tshiftstate; x,

y: integer);

procedure magnetize(var nl,nt:integer);

procedure edgetize(var nl,nt:integer);//定义接近屏幕边缘时的过程

private

{ private declarations }

public

{ public declarations }

end;

const magneticforce:integer=20;

var

... 下一页

·在delphi7中不使用任何第三方控件,实现放在工具栏上可拖动的xp风格菜单. »显示摘要«

摘要：今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图: 步骤一:把win32面板上把coolbar组件加到窗体上步骤二:把additional面板上的actionmainmenubar组件加到coolbar组件上.(注意一定要放在coobar 组件上) 步骤三:把win32面板上的pagescroller组件同样......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：