在组件的OnKeyDown 、 OnKeyUp 、OnMouseDown和OnMouseUp等事件的处理过程中，有一个TShiftState类型的变量Shift ，TShiftState类型定义如下： type TShiftState = set of (ssShift, ssAlt, ssCtrl, ……继续阅读 » 搞代码 7年前 (2018-08-09) 307浏览 0评论0个赞
{*******************************************************} { } { 继承范例 } { } { } { 版权所有 (C) 2000,2001 真光软件 } {*******************************************************} unit ……继续阅读 » 搞代码 7年前 (2018-08-09) 176浏览 0评论0个赞
关联是Windows的一个显著特性。比如安装了office后，后缀是.doc的文 件会和word关联在一起。如果我们想自己创建关联关系，就必须从注册表入手。下 面的代码会把后缀是.me的文件和Notepad关联在一起，请参阅： procedure TForm1.Button1Click（Sender: TObject）; var &nbs……继续阅读 » 搞代码 7年前 (2018-08-09) 214浏览 0评论0个赞
使用Winamp是有个EasyMove的功能，也就是不在标题栏上拖动鼠标就能移动窗体，虽然EasyMove功能很好实现，可还不如做个控件一劳永逸，另外这个控件还有一个更有用的功能，呆会儿就能见到。我们先看看如何实现它吧！ —- 建立一个空的Unit，把以下代码Copy进去，再把它添加到Delphi的控件库里，这样MovePanel控……继续阅读 » 搞代码 7年前 (2018-08-09) 212浏览 0评论0个赞
所谓动态选单是指选单项随着程序的操作变化而变化。现在，我们用Delphi来实现这一功能，具体步骤如下： 1．首先，确定动态选单的数据来源，即要确定动态选单标题是来自Windows的系统注册表，还是来自一个数据库，或者是来自一个子目录，主要由程序的功能而定。这里假设主窗口名为MainForm，上面已有主选单，其动态选单的数据源是一个Strin……继续阅读 » 搞代码 7年前 (2018-08-09) 152浏览 0评论0个赞
林凌 资源是存放在扩展名.RES的文件里的二进制数据结构，在Delphi中资源文件可以使用图象编辑器来制作(IMAGEEDITOR)，或者使用其他的工具。如：BORLAND公司提供的RADPACKFORDELPHI中的RESOURCEWORKSHOP来创建。资源文件中通常存放的是应用程序可以随时存取的一些对象，包括：ICON、CURSOR、BIT……继续阅读 » 搞代码 7年前 (2018-08-09) 197浏览 0评论0个赞
function IsFileInUse(fName : string) : boolean; var HFileRes : HFILE; begin Result := false; if not FileExists(fName) ……继续阅读 » 搞代码 7年前 (2018-08-09) 200浏览 0评论0个赞
uses Unit2; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; Form2.WindowState := wsMaximized; Form2.MediaPlayer1.Noti……继续阅读 » 搞代码 7年前 (2018-08-09) 162浏览 0评论0个赞
曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序，而我自己曾经编写过的这种可执行文件大小则是在17k左右，因而我一度猜想Delphi恐怕也只能将代码优化到这种程度了。最近由于测试的目的重新把这个程序写了一遍，才发现利用一些技巧，还能够将文件的大小进一步缩减到8.5k。这个程序也能够显示Delphi作为类似于Visual C++……继续阅读 » 搞代码 7年前 (2018-08-09) 186浏览 0评论0个赞
陈学军 实现异型FORM并不是一件难事，本文将向您介绍如何利用API函数实现圆角矩形和椭圆形FORM，并在此基础之上探讨实现TWINcontrol类的后裔的异型的实现。 欲改变FORM的形状，也就是实现对区域（region）的控制。在Win32 API程序参考手册有关区域（region）的定义是这样描述的：它可以是一个矩形，多边形，椭圆形……继续阅读 » 搞代码 7年前 (2018-08-09) 146浏览 0评论0个赞
