摘要：
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事件上一页 ...
property onmouseleave: tnotifyevent read fonmouseleave write fonmouseleave;
end; 【程序编程相关:
递归清空窗体上 所有文本框，下拉框中的文】 【推荐阅读:
一个多线程后台扫描的程序和源代码
】
【扩展信息:
一个更加强大易用的XML库 -- Nat】
procedure register;
implementation
procedure register;
begin
registercomponents(samples, [tmyimage]);
end;
procedure tmyimage.cmmouseleave(var message: tmessage);
begin
inherited;
if assigned(fonmouseleave) then fonmouseleave(self);
end;
end.
摘要：procedure tform1.button1click(sender: tobject);
var
iconsizex : integer;
iconsizey : integer;
andmask : tbitmap;
xormask : tbitmap;
iconinfo : ticoninfo;
icon : ticon;
begin
{get the ic......
