dingligang-优快云博客

原创 delphi url

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

2005-01-14 18:35:00 681

原创使你的窗体保留在桌面的最上面

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

2005-01-14 18:34:00 589

原创在Delphi程序中操作注册表

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

2005-01-14 18:32:00 889

原创如何在Delphi中更改墙纸

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

2005-01-14 18:29:00 850

原创控件的安装

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

2005-01-12 23:18:00 912

原创 (Delphi)如和下载网络文件的例子

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控件下载网络

2005-01-12 20:40:00 811

原创用Delphi实现文件下载的几种方法

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

2005-01-12 20:36:00 828

原创如何做出像Foxmail、MSN的消息窗体的效果

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

2005-01-12 20:20:00 713

原创移动无标题栏窗口

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

2005-01-12 20:19:00 601

原创在Delphi7中实现停靠功能

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

2005-01-11 16:52:00 658

原创 <窗体特效〉半透明窗体像Foxmail3.1beta的一样

在windows2000下增加了一些API,可以轻易的实现半透明的窗体，源程序如下，必要的地方我加上了注释unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;const WS_EX_LAYERED = $80000; AC_SRC_OVER = $

2005-01-11 16:49:00 609

原创动画显示窗体

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

2005-01-10 21:44:00 607

原创实现QQ窗体的缩入伸出功能

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

2005-01-10 12:54:00 591

原创给我未来的孩子——25岁前一定要看（转自水木）

孩子，我希望你自始至终都是一个理想主义者。你可以是农民，可以是工程师，可以是演员，可以是流浪汉，但你必须是个理想主义者。当你童年，我们讲英雄故事给你听，并不是一定要你成为英雄，而是希望你具有纯正的品格；当你少年，我们让你接触诗歌、绘画、音乐，是为了让你的心灵填满高尚的情趣。这些高尚的情趣会支撑你的一生，使你在最严酷的冬天也不会忘记玫瑰的芳香。理想会使人出众。孩子，不要为自己的外形担忧。理想纯洁你的

2004-11-07 22:25:00 604

原创产生彩色验证码_(javabean实现)

文件名：Image.java==================================================================/* * Created on 2004-8-4 * * To change the template for this generated file go to * Window>Preferences>Java>Cod

2004-11-07 22:20:00 672

原创让你在职场游刃有余的10句话^_^

　俗话说得好：会干的不如会说的。你想仅仅凭着熟练的技能和勤恳的工作，就在职场游刃有余、出人头地，未免有些天真了。虽然能力加勤奋很重要，但会说话，却能让你工作起来更轻松，并且可能帮助你加薪、升职。　　1、应答上司交代的工作：我立即去办。　　冷静、迅速地做出这样的回应，会让上司直观地感觉你是一个工作讲效率、处理问题果断，并且服从领导的好下属。如果你犹豫不决，只会让上司不快，会给上司留下优柔寡断的印象，

2004-11-07 22:09:00 695

dingligang的专栏