- 博客(2)
- 资源 (1)
- 收藏
- 关注
原创 delphi 金额转为中文
function MoneyName(Value: Double): string; const SCnNumber = '零壹贰叁肆伍陆柒捌玖'; SCnPower = '拾佰仟'; var V, V1: Double; X: array[0..4] of Integer; //分别表示万亿位
2010-07-05 13:30:00 339
原创 窗口吸附
<br />先新建一应用程序项目,把主窗口Form1适当改小些,并将BorderStyle设为bsNone。放一个按钮元件,双击它并在OnClick事件中写“Close;”。待会儿就按它来结束程序。现在切换到代码编辑区,定义几个全局变量。 <br />var <br />Form1: TForm1; //“磁性”窗口 <br />LastX, LastY: Integer; //记录前一次的坐标 <br />WinampRect:Trect; //保存Winamp窗口的矩形区域 <br />hwnd_Win
2010-07-05 13:29:00 665
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人