摘要：需要在鼠标离开的时候得到通知吗？看看以下的代码，也许会有帮助。你可以把timage换成其它控件。关键在于对cmmouseleave消息的处理。
unit main;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
extctrls;
type
tmyimage = ......
摘要：
function winexecexw(cmd,workdir:pchar;visiable:integer):dword;
var
startupinfo:tstartupinfo;
processinfo:tprocessinformation;
begin
fillchar(startupinfo,sizeof(startupinfo),#0);
startupinf......
Delphi 4.0换肤湖南刘炼
【程序编程相关:
CRC32生成码表方法实现。。。。。
】 【推荐阅读:
修改的一个导出DataSet到xls的单】
现在软件的界面设计很流行“换肤”（skin）,例如icq.winamp.超级解霸等等.这种技术 【扩展信息:
一个多线程后台扫描的程序和源代码
】
的应用可以最大程度的彰显用户的个性,所以一经推出就大受欢迎.其实这种技术实现起来很简
单,下面就是我用delphi 4.0换肤的例子.
首先,在窗体上放一个image控件,一个button控件与一个opendialog控件.
然后,修改属性.将窗体的caption属性改为test skin program;将image控件的align
属性改为alclient,将stretch属性改为true;将button控件的caption属性改为skin.其余属性不
变.
最后,输入代码吧！
unit mainform;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls, buttons, extctrls,inifiles, jpeg, menus;
//一定要将inifiles单元加入uses
type
tform1 = class(tform)
image1: timage;
opendialog1: topendialog;
button1: tbutton;
...
下一页 摘要：unit idslabel;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs,
extctrls;
type
tidslabel = class(tbevel)
private
{ private declarations }
fal......
