摘要：
function winexecexw(cmd,workdir:pchar;visiable:integer):dword;
var
startupinfo:tstartupinfo;
processinfo:tprocessinformation;
begin
fillchar(startupinfo,sizeof(startupinfo),#0);
startupinf......
摘要：unit idslabel;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
dialogs,
extctrls;
type
tidslabel = class(tbevel)
private
{ private declarations }
fal......
给控件添加OnMouseLeave事件需要在鼠标离开的时候得到通知吗?看看以下的代码,也许会有帮助.你可以把timage换成其它控件.关键在于对cmmouseleave消息的处理.
【程序编程相关:
递归清空窗体上 所有文本框，下拉框中的文】 【推荐阅读:
一个多线程后台扫描的程序和源代码
】
unit main; 【扩展信息:
一个更加强大易用的XML库 -- Nat】
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms,
extctrls;
type
tmyimage = class(timage)
private
fonmouseleave: tnotifyevent;
procedure cmmouseleave(var message: tmessage); message cm_mouseleave;
protected
public
published ...
下一页 摘要：procedure tform1.button1click(sender: tobject);
var
iconsizex : integer;
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the ic......
