dingligang的专栏

在Delphi7中实现停靠功能我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到优快云等网站寻找各种相关的控件，或者参考Delphi自带的例程Docking，下面我给大家介绍一种能够凑乎用的简便方法。1、在主窗口中添加四个Panel和四个Splitter，设置对齐上下左右四边。2、设定四个Panel的属性DockSite属性

一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为 什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程： 在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;

Procedure TForm1.FormCreate(Sender: TObject);Begin  Form1.Top := Screen.Height;  Form1.Left := Screen.Width - Form1.Width;  SysTmrTimer.Enabled := True;End;Procedure TForm1.SysTmrTimerTimer(Sender:

 笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CS

 FTP下载: http://www.7880.com/Info/Article-19938be0.html         http://community.youkuaiyun.com/Expert/topic/3300/3300012.xml?temp=5.028933E-02FTP下载: TIdFTP控件 (Delphi7  Indy)Http下载: (Delphi7)使用设计Indy控件下载网络

控件的安装==============基本安装  1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install;2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；4、如果以上I

不知道大家在使用QQ时有没有想到它的缩入伸出的功能是如何实现的呢？实现这个效果的关键在于如何判断当前鼠标指针下面的窗体是不是我们的程序窗体。GetCursorPos()是一个可以获得鼠标指针在屏幕中的坐标的API函数，利用它与FindVCLWindow()的结合就可以轻易地获得鼠标指针下的VCL可视组件，但当一个窗体中不只一个VCL可视组件，例如可能还有TPanel、TMemo等等类型时，那么我们

procedure TForm1.FormCreate(Sender: TObject);begin  AnimateWindow(Handle,2000{速度：2秒},AW_BLEND);{ AW_HOR_POSITIVE = $00000001;  AW_HOR_NEGATIVE = $00000002;  AW_VER_POSITIVE = $00000004;  AW_VER_NEGATI

http://www.delphifans.com/infoview/Article_301.htmlhttp://www.delphifans.com/infoview/Article_215.htmlhttp://www.delphifans.com/infoview/Article_35.htmlhttp://bbs.2ccc.com/default.asp?pageno=20&roomid

当我们想让一个窗体保留在桌面的最上面时，可以定义窗体的FormStyle属性，使窗体保持在最上面。但是，使用这种方法后，在切换窗体的模式时，窗体将闪烁。为了避免切换窗体模式时的闪烁，可以使用Windows API函数SetWindowPos来解决这一问题，使用方法如下： SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top

你学会了VB，你知道了在VB中如何通过程序来更换Windows的墙纸，但是，在Delphi中如何同VB一样方便地更换墙纸呢？其实，也是很方便的，不信？请参考以下的程序。 　　procedureChangeIt； 　　var 　　Reg：TregIniFile； 　　begin 　　Reg：p TRegIniFile．Create(ControlPanel)； 　　Reg．W

32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。 　　一、创建和释放TRegistry对象　　1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry := TRegistry.Create；　　2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。