- 浏览: 13767 次
最新评论
{ 点灯游戏--一个动态创建组件的示例
Tips : 在动态创建组件时, Parent属性设定很重要, 如果不设定, 组件是不能显示的~~ 呵呵, 这个是易犯的低级错误, 至少对我来说.
}
unit ULamp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TFormLamp = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
procedure PanelClickHandle(Sender: TObject);
end;
function IsFinished: Boolean;
var
FormLamp: TFormLamp;
LampPanel : array[0..24] of TPanel;
implementation
{$R *.dfm}
function IsFinished: Boolean;
var
i: Integer;
begin
Result := True;
for i := 0 to 24 do
begin
if (LampPanel[i].Color = $006060) then Result := Result and False;
end;
end;
procedure TFormLamp.PanelClickHandle(Sender: TObject);
var
X,Y: Integer;
ThisTag: Integer;
begin
{
上: (X,Y-1); 下: (X,Y+1), 左: (X-1,Y), 右: (X+1,Y);
}
ThisTag := (Sender as TPanel).Tag;
X := ThisTag div 5;
Y := ThisTag mod 5;
LampPanel[ThisTag].Color := $ffffff - LampPanel[ThisTag].Color;
if (Y>0) then LampPanel[X*5+Y-1].Color := $ffffff - LampPanel[X*5+Y-1].Color;
if (X>0) then LampPanel[(X-1)*5+Y].Color := $ffffff - LampPanel[(X-1)*5+Y].Color;
if (Y nil then LampPanel[i].Free;
end;
end.
发表评论
-
字符串操作实践[内联汇编实现]
2012-07-06 09:52 1142以下代码在VC6下编译测试通过 函数实现: /**** ... -
SQL语句的解析方法
2012-07-06 09:46 819数据是程序处理的主要内容,它一般存储在关系型数据库中,要操 ... -
ubuntu下安装mplayer
2012-07-06 09:30 1124快乐,是知识的源泉,知识,是学习的动力。学习是成功的基础。 ... -
asp.net的treeview右键菜单Context Menus on the TReeView - IE Specific
2012-07-05 20:45 712原文网址:http://blogs.msdn.com/b/ ... -
Flex中获取文本控件中文本的高度
2012-07-02 12:49 777在做文字直播的时候需要获取当前Text控件中文本的高度(T ... -
Flex 与 C# socket 通信(最简单的例子)
2012-07-02 12:49 836我用的是vs2005 文件 - 新建 - 项目 - ... -
Flex4 AdvanceDataGrid去掉排序中竖线
2012-07-02 12:49 861网上资料说:Flex4中想要去除AdvancedDataG ... -
Flex 数据绑定
2012-07-02 12:49 430//Task.as package { public cl ... -
FLEX4中怎样设置背景,及惭变色
2012-07-02 12:49 554height="100%" width ... -
AS3.0相关知识
2012-07-01 10:13 825as3.0 2010-01-06 0 ... -
菜鸟系列之一:在ubuntu linux下搭建android开发
2012-07-01 10:13 871(说明:在ubuntu liunx ... -
『DavyYew』看了又看的SD2.0
2012-07-01 10:13 587原文链接:http://blog. ... -
自定义Eclipse配色方案,尤其对个别字符配色的解决
2012-07-01 10:13 952使用flex plugin,手动一个个调整了配色方案,方法 ... -
FMS3系列(六):使用远程共享对象(SharedObject)实现多人时时在线聊天(Flex | Flash)
2012-06-30 16:38 566FMS3系列(六):使用远程共 ... -
揭秘培训行业内幕---西安PHP学院|PHP培训|Flex培训|游戏培训|UI培训(西安PHP培训)
2012-06-30 16:38 826揭秘培训行业内幕---西 ... -
[转载][转]AS代码优化和Flex应用程序的性能
2012-06-30 16:38 599[转载][转]AS代码优化和F ... -
从flex4 主程序加载另外一个flex4项目
2012-06-30 16:38 397从flex4 主程序加载另外一个flex4项目 2010年1 ...
相关推荐
名称:DK的《点灯》-附源代码 版本:1.0.0.0 运行环境:Win9X/Me/NT/2000/XP/2003/Vista+MFC42.dll 开发环境:WinXp+VC6+MFC 软件开发者:FanSin Studio 开发商网站:暂无 作者:棼紫|DKink QQ:8566427 EMAIL:...
LED模块中实现了点灯,跑马灯程序。模块需要手动加载,并且手动创建文件节点后方可操作。 应用程序记动时输入参数实现对LED灯的控制。
js写的很简单的一个点灯游戏,将压缩文件解压到一个文件夹里面运行index.html
雄鸟点灯,一个游戏。
GD32 MCU 开发板 Workshop 报告:RT-Thread点灯-rt-thread-v4.0.1 -gd32.zip
自己做的点灯游戏,欢迎探讨
可设置游戏方格的颜色和方格背景色,便于有一个更清淅的界面参与游戏,本游戏玩法说明: 1、当游戏开始时,只要用鼠标点击任意一小方格,则他四周的小方格就会变成与他们以前相反的颜色。 2、将所有的小方格都...
这是一款不错的点灯游戏,用鼠标控制。试试你能过到第几关?玩吧!
基于C++语言开发的涂格子游戏(点灯游戏)源码 基于C++语言开发的涂格子游戏(点灯游戏)源码 基于C++语言开发的涂格子游戏(点灯游戏)源码 基于C++语言开发的涂格子游戏(点灯游戏)源码 基于C++语言开发的涂格子游戏(点灯...
第4章 点灯游戏与华容道--图形图像编程 第5章 "流行之王实力大比拼"游戏(上)--多媒体程序设计 第6章 "流行之王实力大比拼"游戏(中)--数据库编程基础 第7章 "流行之王实力大比拼"游戏(下)--文件注册表操作 第8章 ...
DELPHI制造的点灯小游戏源码,喜欢的朋友请下载
此代码为LED模块例程,LED驱动模块包括两个源文件。Makefile文件中实现对两个源文件编译并生成模块。 测试程序也使用Makefile编译。模块测试方法请看模块测试程序代码。
JQuery做的网页版点灯游戏,代码很全的,每一关 3*3,第二关 5*5 ,第三关 7*7。
iOS实现的一个点灯小游戏,非常简单,欢迎下载交流学习。
没什么技术难度,中手与高手就不要看了,如果有那位牛人能给我讲讲点灯的算法就好了,谢谢~!
用c#写的单界面小游戏。递归,判断,人工智能
点灯游戏是一个十分有趣的智力游戏:有一行N行N列的灯,开始时全部是灭的,当你点击其中一盏灯是他的上下左右(若存在的话)状态全部改变,现在要求你在限定的时间内以最少地步数,将全部的灯点亮.
用delphi做的点灯游戏 (1 高校餐饮银卡系统 1 2 智能监视系统 72 3 停车场出口收费系统 119 4 云台镜头控制系统 205 5 模型飞机测控平台 255 6 邮件短信自动通知系统 310 全是与串口控制有关的delphi源码...
点灯游戏N6解法视频 3*3解法: 第一行13第二行2第三行13. 4*4解法: 第一行13第二行2第三行134第四行34 5*5解法: 第一行134第二行234第三行123第四行1245第五行45. 6*6解法: 第一行1346第二行2345第三行123456第四...
点灯游戏,没什么难度~!