pascal吧 关注：14,951贴子：132,335
昨天我已经给大家介绍了top和left，那么现在我们来做个小游戏~
首先，新建应用程序，在form上添加一个image
然后，在对象观察器中找到picture属性
然后点击那个“…”按钮，在弹出的对话框中点“载入”，然后选择一张图片
点确定
再找到AutoSize属性改为true，这样image的大小就自动变成图片的大小了
然后我们再添加一个timer
在form中双击timer，在光标处码上
运行。
发现这个
正在缓慢地向右移动
怎么让跑快点呢？我们再找到timer的Interval属性，把默认的1000改成5或者10
再运行，是不是快多了！
好了，光让他自己跑太没劲，我们要用键盘控制。在form1的事件中找到
点“…”
假如我们要用wasd控制，那就在代码中写上
千万别忘了把之前那个事件里的代码删掉！
或许大家都已经发现，case中的那四个值都是小写的，如果大写锁定键打开的话不就不能用了吗？所以，我们再加上
这样再运行，是不是都能控制了
首先，新建应用程序，在form上添加一个image
然后，在对象观察器中找到picture属性
然后点击那个“…”按钮，在弹出的对话框中点“载入”，然后选择一张图片
点确定再找到AutoSize属性改为true，这样image的大小就自动变成图片的大小了
然后我们再添加一个timer
在form中双击timer，在光标处码上
运行。
发现这个
正在缓慢地向右移动怎么让
跑快点呢？我们再找到timer的Interval属性，把默认的1000改成5或者10再运行，是不是快多了！
好了，光让他自己跑太没劲，我们要用键盘控制。在form1的事件中找到
点“…”假如我们要用wasd控制，那就在代码中写上
千万别忘了把之前那个事件里的代码删掉！或许大家都已经发现，case中的那四个值都是小写的，如果大写锁定键打开的话不就不能用了吗？所以，我们再加上
这样再运行，是不是都能控制了
自己一个跑也没意思，我们再加一个追的
添加好图片后，在 timer1的事件里写上
好了，运行一下，愉快地玩耍吧
今天的又更完了，大家快来围观啊 @fp4869 @82111668_2012 @meAu_遗忘 @asdjklz4
添加好图片后，在 timer1的事件里写上
好了，运行一下，愉快地玩耍吧
今天的又更完了，大家快来围观啊 @fp4869 @82111668_2012 @meAu_遗忘 @asdjklz4
我来教教你怎么动态创建组件
大家都知道动态链表吧，那顾名思义，动态创建组件就是在运行程序时开辟内存创建一个按钮之类的组件。那么为什吗要动态创建呢？
如果你要1w个按钮你还声明一万次啊。。
我们先从一个例子开始，比如你要一数组的按钮
（不要吐槽我的命名方式）
找到form1的OnShow事件
P.S.以后假如窗口上的组件被盖住或找不到了都去那个红框里找，但动态创建的组件在这里没有。
P.P.S.别问我为什么是OnShow，十二楼那个参考资料又不是没有~
接下来，在这个事件中这样写
create方法是定义在TObject类里的，因此每个组件都有，他的参数是该组件的parent，也就是你想让这个组件的老子是谁这里就写谁。顺便说一下，self相当于C艹里的this指针，他指向的是当前的对象，比如在这里是form1的事件，于是self就是form1.
运行后只有一个空框框
这是因为他们的默认属性相同于是就挤到一块去了，你只需要定义一下他们的坐标
为了少写点代码，就出现了这个问题
可能这个空空的方框不太和谐，于是给他们写上标题
现在好了
大家都知道动态链表吧，那顾名思义，动态创建组件就是在运行程序时开辟内存创建一个按钮之类的组件。那么为什吗要动态创建呢？
如果你要1w个按钮你还声明一万次啊。。
我们先从一个例子开始，比如你要一数组的按钮
（不要吐槽我的命名方式）找到form1的OnShow事件
P.S.以后假如窗口上的组件被盖住或找不到了都去那个红框里找，但动态创建的组件在这里没有。
P.P.S.别问我为什么是OnShow，十二楼那个参考资料又不是没有~
接下来，在这个事件中这样写
create方法是定义在TObject类里的，因此每个组件都有，他的参数是该组件的parent，也就是你想让这个组件的老子是谁这里就写谁。顺便说一下，self相当于C艹里的this指针，他指向的是当前的对象，比如在这里是form1的事件，于是self就是form1.运行后只有一个空框框
这是因为他们的默认属性相同于是就挤到一块去了，你只需要定义一下他们的坐标为了少写点代码，就出现了这个问题
可能这个空空的方框不太和谐，于是给他们写上标题
现在好了
