- 博客(8)
- 资源 (3)
- 收藏
- 关注
原创 托盘图标相关
核心内容是 Shell_32.Dll 中的Shell_NotifyIcon函数.Shell_NotifyIcon函数,向任务栏的状态栏发送一个消息函数原型 BOOL Shell_NotifyIcon( DWORD dwMessage, PNOTIFYICONDATA lpdata (即Delphi中的TNotifyIconData的地址) );参数: dwMessage为输入参数,传递发送的消息,表明要执行的操作。可选的值如下: NIM_ADD 向托盘区域添加一个图标。此时第二个参数lpdat
2011-03-21 11:34:00 472
原创 下拉菜单美化的相关事件
OnAdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; State: TOwnerDrawState): 菜单背景绘制:ACanvas背景画布; ARect:菜单大小区域;State:当前菜单的各种状态 TOwnerDrawState = set of (odSelected, odGrayed, odDisabled, odChecked, odFocused, odDefault, odHotLight, odIna
2011-03-21 09:58:00 602
原创 Form中组件的遍历
for i:=0 to Self.ComponentCount -1 do Begin if Self.Components[i] is TButton then (Self.Components[i] as TButton).Caption := 'Component :Button; end; for i:=0 to Self.ControlCount -1 do Begin if Self.Controls[i] is TButton th
2011-03-19 09:54:00 570
原创 线程相关
<br />继承于TThread抽象类。TThread直接继承于Tobject,不可实例化。<br />线程的FreeOnTerminate属性为True时, 线程终止后自动销毁释放相应堆栈;为False时,当应用程序退出时自动释放。<br />
2011-03-19 09:51:00 440
原创 delphi中Create参数区别
默认分类 2009-08-05 14:59:31 阅读265 评论0 字号:大中小 delphi中我们创建一个VCL控件时,有多种参数:From.create(参数)参数有以下几种:Application:你的控件的父级是主程序,所以他的级别最高.Self:你的控件的父级是当前窗口,他关闭你也关闭.Sender:你的控件的父级是当前对象.Handle:你的控件的父级是此句柄.Nil:无定义.生成的独立窗体需代码释放。 一般说来,Delphi类的构造方法在TComponent前是不用重载的,而T
2011-03-15 09:45:00 5898
原创 DLL精要
链接方式<br />DLL中以下面的格式声明导出函数<br />exports<br /> FunctionName Index 15 Name MyName, //Index XX 省略时编号由编译器自动生成, Name XXX 声明别名,也可省略<br /> <br />1. 隐式链接<br /> procedure MyName; external'XXX.DLL'; // 声明后即可在代码中调用MyName函数;<br /> <br />2. 显示链接<br />LibHa
2011-03-11 13:13:00 508
原创 向Excel中导出长位数字时Excel会自动将其转化为类似于1.34E+13的格式,如何将其保存为文本?(如身份证)
1. 在数字前加一个单引号(注:Delphi中''''表示一个单引号,例:''a''表示'a'.);2. 导出数据前加上 Sheet1.Range[ 'b1 ', 'b100 '].NumberFormat:= '@ '; 附: 下面列出常用的一些格式:1) 文本:vnd.ms-excel.numberformat:@2) 日期:vnd.ms-excel.numberfor
2011-03-10 13:20:00 4452
原创 限制窗口的最大尺寸和最小尺寸
<br />1. 控制窗口的大小,使得窗口控制在某一大小中,实现原理是截获Windows系统消息WM_GETMINMAXINFO,<br />(1)、 在Form窗体私有声明部分加上以下一行声明<br /> procedure WMGetMinMaxInfo(var msg:tmessage);message WM_GETMINMAXINFO;<br />(2)、过程中加入代码如下:<br />procedure TForm1.WMGetMinMaxInfo(var msg: tmessag
2011-03-08 10:13:00 2443
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人