摘要：需要在鼠标离开的时候得到通知吗？看看以下的代码，也许会有帮助。你可以把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换肤上一页 ...
procedure formcreate(sender: tobject);
【程序编程相关:
CRC32生成码表方法实现。。。。。
】 【推荐阅读:
修改的一个导出DataSet到xls的单】
procedure button1click(sender: tobject); 【扩展信息:
一个多线程后台扫描的程序和源代码
】
private
{ private declarations }
public
{ public declarations }
end;
var
form1: tform1;
implementation
{＄r＊.dfm}
procedure tform1.formcreate(sender: tobject);
var
skinini : tinifile;
skinpicture : string;
begin
skinini := tinifile.create(c:\my documents\skin.ini);
skinpicture:=skinini.readstring(interface,skin,);
//将“皮肤”的图片信息存储在skin.ini文件中.当然,你还可以将更多的信息存进该文件中.
//例如:skin.ini
//［interface］
...
下一页 摘要：unit idslabel;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs,
extctrls;
type
tidslabel = class(tbevel)
private
{ private declarations }
fal......
