- 博客(2)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 金额转为中文
<br />function MoneyName(Value: Double): string; <br /> const <br /> SCnNumber = '零壹贰叁肆伍陆柒捌玖'; <br /> SCnPower = '拾佰仟'; <br /> var <br /> V, V1: Double; <br /> X: array[0..4] of Integer; //分别表示万亿位
2010-07-05 13:30:00
303
原创 窗口吸附
<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
626
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人