Delphi 7.0 内存映射文件举例，演示文件读取，读取的文件内容显示时缺省将其转变为大写，用户可通过大小写的转换操作来感受内存映射文件后对文件内容的操作，当然映射的文件的操作不仅仅是大小写的转换，还有很多操作，根据你的需要，你可编写出需要的内存映射功能。

Delphi仿QQ窗口屏幕边缘自动隐藏收起功能，Delphi仿QQ窗体自动隐藏功能，从截图上看不出什么效果，你需要将窗口拖动至屏幕的任一边缘，可以是底部、顶部、左右两侧，然后它就会像腾讯QQ的窗口一样自动隐藏起来，当鼠标滑过来的时候它会自动出现，纯Delphi实现。

Delphi追踪屏幕像素点颜色值及抓取屏幕，鼠标运行检测及截图演示Delphi源程序，跟踪象素区域、设置鼠标定时点击像素点，测试监视的像素点，不明白的看看测试截图就知道了，和鼠标操作密切相关的一个例子。

Delphi实现的右下角弹出窗口，类似网页上的右下角广告窗口、重要信息公告窗口，在WEB设计中更多用于广告了，在Delphi软件中，你同样可以把本弹出窗口用于广告设计中，支持关闭功能。

Delphi窗口编程实例：如何让窗口不可拖动位置，即使鼠标按在标题栏上，也不能拖动窗口，窗口变得不可移动，打开时在什么位置 ，就始终保持在某位置，实现此功能的关键代码部分： 　　 Msg.WindowPos.x := Left; 　　//消息的WindowPos.x部分包含新窗体左边位置，将其改成原来窗体左边坐标 　　//Left全写为Form1.Left 　　 Msg.WindowPos.y := Top; 　　//消息的WindowPos.y部分包含新窗体顶部位置，将其改成原来窗体顶部坐标 　　//Top全写为Form1.Top 　　 Msg.Result := 0;

Delphi HOOK例子，一个键盘钩子程序，演示如何安装HOOK,如何卸载Hook，以及如何通过HOOK来获取键盘按键记录，每一步操作都被HOOK记录，并显示提示信息。

XPMenu窗体控件Delphi版，在Delphi窗体中实现类似Windows XP风格的菜单专属控件，用起来十分方便，而且界面效果很棒，菜单漂亮，相信很多人会知道XPMenu这个控件吧。

Delphi 为窗体绘制渐变背景，这里使用了Delphi中的Canvas.Brush.Color来实现窗口背景的渐变色，不错吧？如示例图的左右渐变效果，实现的代码： 　　for i:=0 to self.Width-1 do 　　begin 　　c1:=GetRValue(StartColor) Trunc(i*(GetRValue(EndColor)-GetRValue(StartColor))/(self.Width-1)); 　　c2:=GetGValue(StartColor) Trunc(i*(GetGValue(EndColor)-GetGValue(StartColor))/(self.Width-1)); 　　c3:=GetBValue(StartColor) Trunc(i*(GetBValue(EndColor)-GetBValue(StartColor))/(self.Width-1)); 　　Canvas.Brush.Color:=RGB(c1,c2,c3); 　　//每次画矩形的画刷颜色 　　Dct:=Rect(i,0,i 1,self.Height); 　　//每次刷绘的矩形区域 　　Canvas.FillRect(Dct); 　　//填充颜色 　　end;

Delphi仿QQ窗口自动定位或隐藏（磁性吸附）功能，当鼠标拖动窗口至屏幕边缘或主窗体附近时，窗口会自动靠近主窗口，有的是自动吸附在主窗口上，好像带有磁性一样，这种窗口目前被应用到了很多视频播放器上面，比如播放列表可从主窗口脱离，然后拖近主窗口时，会自动吸在主窗口上。部分主程序代码： 　　当 top 距屏幕上侧 20 像素时,自动隐藏 　　 if frmMain.Top Screen.Width) then 　　 frmMain.Left:= Screen.Width - frmMain.Width; 　　 end 　　 // 当 left 距屏幕下侧 20 像素时,自动隐藏 　　 else if frmMain.Left frmMain.Width - Screen.Width >= -20 then 　　 //将frmMain向右移，在屏幕右方露出4像素

Delphi Treeview树形菜单视图源码，通过数据库读取到资料，然后绑定显示到TreeView中，通过多组数据的比较，可以看出不同方式之间速度的差异，一般情况下我们都是在使用时才打开树状菜单，才开始加载数据。同时这个树状菜单也是挺实用的一种窗体菜单。