摘要:成都市八二信箱 王乐
很多软件在其about窗口或help菜单中,可让用户通过单击一段文字就能方便地访问某个网页。比如,delphi的help中就有可直接访问该公司主页的菜单项。下面介绍的thyperlink组件是用delphi3.0编制的,可方便地实现上述功能。
thyperlink是基于tcustomlabel组件的,它有以下特性:
属性:
普通label组件的所有特性,......
摘要:在dbgrid的ondrawdatacell事件下写:
procedure tform1.dbgrid1drawdatacell(sender: tobject; const rect: trect;
field: tfield; state: tgriddrawstate);
begin
if table1.fieldbyname(partno).asfloat > 2500 ......
取应用程式的版本号function getappversion:string;
{取应用程式的版本号程式,如有版本号,返回值为版本号的值,否则返回值为空 【程序编程相关:
修改记录字段值时错误Row cannot】 【推荐阅读:
支持自绘画的属性编辑器
】
返回值的格式为如1.0.0.0 【扩展信息:
如何制作照片底片效果的图像(即反色)
】
胡国荣 2000/11/04 }
function getfileversion(filename: string): string;
type
pverinfo = ^tvs_fixedfileinfo;
tvs_fixedfileinfo = record
dwsignature: longint;
dwstrucversion: longint;
dwfileversionms: longint;
dwfileversionls: longint;
dwfileflagsmask: longint;
dwfileflags: longint;
dwfileos: longint;
dwfiletype: longint;
dwfilesubtype: longint;
dwfiledatems: longint;
dwfiledatels: longint;
end;
var ...
下一页 摘要:delphi是inprise(前borland)公司的优秀的可视化编程工具,它自带的mediaplayer控件是开发多媒体的利器。用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来。但可能很少人知道,用它也可以做一个录音程序。
运行delphi,在system页拖一个mediaplayer控件到窗体上,默认名为mediaplayer1。由于我们的程序是采用自己的按钮,所以将media......