- 博客(11)
- 收藏
- 关注
转载 实现QQ窗体的缩入伸出功能(文章来自csdn) 选择自 lovecdw 的 Blog
不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢?实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数,利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件,但当一个窗体中不只一个VCL可视组件,例如可能还有TPanel、TMemo等等类型时,那
2005-02-25 19:55:00
753
转载 delphi学习笔记(2)-object pascal语言的语句 选择自 xmz2629 的 Blog
二、语句 首先要说一下begin ... end; 相当于c或者c++中的{ ... }。 (1)声明语句 常量:const 常量标识符[:类型]=常值; 变量:var 变量标识符:数据类型; (2)表达式语句 由运算符组成的合法语句 运算符优先级: 运算符
2005-02-25 19:54:00
755
转载 delphi学习笔记(1)-object pascal语言的数据类型 选择自 xmz2629 的 Blog
学了十多天的delphi,感觉这是易上手好应用。在这里把最基本的知识的总结出来。一、数据类型:(1) 基本数据类型: a、 整数类型: (通用类型:Integer-有符号;Cardinal-无符号) 具体: 有符号:Shortint,Smallint,Longint 无符号:Byte,Word,LongiWord b、字
2005-02-25 19:53:00
821
转载 (转)flash播放器
TShockwaveFlash主要属性如下: ReadyState:读一个flash文件时的状态,其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete;TotalFrames:总帧数,只有当ReadyState = 4时才能访问该属性;FrameNum:当前播放的帧;Playing:播放或暂停一个flash;Qualit
2005-02-25 19:50:00
774
转载 利用底层键盘钩子屏蔽任意按键
很多人都知道,如果想在系统范围内屏蔽键盘上的任意按键需要使用全局键盘钩子,然而像win键这样“倔强”的按键又不是普通的键盘钩子就能搞定的。这里我提供一种利用底层键盘钩子屏蔽任意按键(包括win键)的方法,并且作成了.dll动态链接库,方便以后使用。钩子,是一种相对复杂一点的技术,通常用来监视系统中某一类型的事件,这些事件可以与某一线程相关(线程钩子),也可以是系统中的所有线程(全局钩子)。关于钩
2005-02-25 19:30:00
978
转载 如何屏蔽系统功能键
有时我们不希望程序被用户用Alt+Tab、Ctrl+Alt+Del、Ctrl+Esc等系统功能键打断(比如自动演示程序),那么该怎么做呢?提示你一点,在运行屏幕保护程序的时候,这些功能键都是不起作用的——也就是说,只要在你的程序运行过程中,“欺骗”一下Windows,使它自以为正处在屏幕保护状态就成了!请看下面这段代码: var temp : integer; begin SystemP
2005-02-23 21:24:00
970
转载 程序不出现在ALT+CTRL+DEL
在implementation后添加声明:function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external KERNEL32.DLL;RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏RegisterServiceProcess(
2005-02-23 21:20:00
654
转载 用鼠标拖动窗体的客户区就可以了
如果你在开发图形或多媒体应用程序,你可能正在为如何不使用窗体的标题栏而移动窗体发愁。其实只需用鼠标拖动窗体的客户区就可以了。方法一 以下是完成上述功能最普通的方法:在窗体的private声明部分加入以下过程声明: procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST; 然后在implementation部分加入以下代
2005-02-23 21:12:00
821
转载 Delphi编程:完全控制桌面的实现
在Windows 9x中系统桌面和开始菜单可以说是它的一大特色,其实我们可以利用Delphi轻易地在应用程序中实现这种技术 : 新建一个应用程序, 将Form1窗体的BorderStyle属性设置为bsNone,FormStyle属性设置为 fsStayOnTop,WindowState属性设置为wsMaximized。 如有必要可在Form1窗体中放置一个Image控件Image1,为它
2005-02-23 21:01:00
688
转载 创建Photoshop式浮动窗口应用程序
用过Photoshop的朋友一定对它的那些方便的浮动面板记忆犹新,其实这些面板就是一个个的小窗体,但这些小窗体都放在Photoshop的主窗体上(不是存在主窗体中),有自己的标题栏、最小化按钮及最大化按钮。但它们与MDI程序不同的是,他们可以拖到主窗体外,更重要的是工作中所有这些面板窗体与主窗体最处于激活状态。 用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Wind
2005-02-23 20:23:00
1304
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人