hl3464-优快云博客

原创用键盘方向键移动无边框窗体并用Esc键关闭窗体

<br />{ 功能：用键盘操作无边框窗体移动并关闭。环境：delphi7+winxp3 通过测试完成时间：18:09 2011-3-7 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label

2011-03-09 20:41:00 706

原创在Form的Image组件上随机绘制不同色彩的线条

{ 作用：在窗体的Image组件随机画不同颜色的线环境：delphi7+winxp3 时间：12:10 2011-3-9 } //************************ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TFo

2011-03-09 20:28:00 610

原创判断指定日期是星期几（delphi编程实现）

{ 作用：闰年指定日期是星期几。可以从公元1年1月1日算起。完成时间：0:49 2011-3-9 环境：delphi7+winxp3 测试通过思路：从公元1年1月1日（为星期一）算起，将指定日期距离公元第一天的总天数算出来，对7求余，根据不同余数，指出具体是星期几。 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr

2011-03-09 19:52:00 2802

设计模式（翻译版简体中文 chm格式范例由delphi改写）

格式：简体中文 chm格式标题：Design Patterns--Elements of Reusable Object-Oriented Software 原作者：Erich Gamma: Richard Helm: Ralph Johnson; John Vlissides. 翻译：Areca Chen 译者说明：这是一本原文书，我并没有全部翻译，主要是个人研究并公布协助各位同好共同研究，或者对于原文接受力较低的朋友参考。不过原则上还是建议有心研究者仍应以原书为主本文为辅，相信唯有如此才能真正学得一门好学问。同时摘录往往忽略书中一些应用上的说明这也是提供我们了解重要的途径之一，故再次强调请配合原书研读。其次因为书之中都是以C++及Smalltalk两种语言作为范例，这两种语言都是我不熟悉的故我尝试以我比较熟悉的语言Delphi改写所有范例，不管你所熟悉的语言是甚么建议你以你所熟悉的语言自行撰写程序范例，相信如此可以让你对所使用的语言能更深一步的认识，也可以帮助你了解书中所说的模式。

2011-03-10