没有窗体的例子---show1.docVIP

没有窗体的例子---show 　　1. 用FORM之目的在于方便用户接口编程，这本身需要的代码量就大～且越大说明其包含的内容越丰富。 　　2. 若你的程序不侧重于甚至不需要界面，也不计较开发效率，你可以采用旧式的编程方法(如TurboPascal风格),不使用FORM，这样你的程序就会大大缩小。典型程序如Snow，你可研究一下，编译后，应用程序代码29K左右(风附件)。 　　　　program Snow; 　　uses 　　Windows, 　　Messages; 　　　　const 　　SnowNumber = 500; // 雪点数量-1 　　type 　　SnowNode = record 　　Point: TPoint; // 雪点位置 　　Color: Integer; // 先前颜色 　　Speed: Integer; // 下落速率 　　nMove: Integer; // 下落距离 　　Stick: Integer; // 粘连度 　　end; 　　var 　　SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组 　　hTimer: Integer; // 随机风向时钟句柄 　　CrWind: Integer; // 当前风向 ( -1 ~ 1 ) 　　CrStep: Int