| ankebeier
36634
|
2009/1/8 19:56:43 |
可以在每个Sleep的后面加上Application.ProcessMessages;这样就防止了延迟。
Self.Top := Self.Top - 3; Sleep(40); Application.ProcessMessages;
Self.Left := Self.Left - 3; Sleep(40); Application.ProcessMessages;
Self.Top := Self.Top + 3; Sleep(40); Application.ProcessMessages;
Self.Left := Self.Left + 3; Sleep(40); Application.ProcessMessages;
问题解决了！ |
| szyourname
36631
|
2009/1/8 16:03:22 |
| 简单而实用，不错不错！ |
| ankebeier
36624
|
2009/1/7 20:46:48 |
| 我们因编程而快乐，其实编程就像变魔术，不知道的时候感觉深不可测，当你知道了才觉得是那么简单，代码的简单与否不重要，重要的是我们从编程中获得快乐。其实我觉得这几段代码还不是很漂亮很完美，大家发现了吗？用到了Sleep就会产生停顿的！抖的时候总是会有一点延迟。所以还希望它能变得更完美！ |
| chbqq
36621
|
2009/1/7 17:53:39 |
| 和我用的方法一样嘛 |
| rainstorey
36617
|
2009/1/7 12:27:23 |
| 感谢LZ提供开心一刻 |
| xiaofei7569
36613
|
2009/1/7 11:46:43 |
| 也不觉得很有深度 |
| sunyesy
36611
|
2009/1/7 9:34:48 |
不管代码如何，起码让我开心了一次
这是自从盒子经过换手风波后，我在盒子上面第一次感动开心
谢了 楼主 |
| arvin
36606
|
2009/1/6 21:40:27 |
| 挺好玩的，支持． |
| homejun
36605
|
2009/1/6 19:58:49 |
| 作者还是很细心观察的，代码简单不是问题，把复杂的东西弄简单是正确的，把简单的东西弄复杂就肯定是错误的 |
| iceker
36602
|
2009/1/6 14:50:05 |
没必要刻意注意这个深浅度度吧
很无聊的说 |
| lovezyp
36601
|
2009/1/6 14:04:48 |
for I := 0 to 4 do begin
Self.Top := Self.Top - 3; Sleep(40);
Self.Left := Self.Left - 3; Sleep(40);
Self.Top := Self.Top + 3; Sleep(40);
Self.Left := Self.Left + 3; Sleep(40);
代码虽然简单，但是思路是不错的，效果也好，支持楼主 |
| aicd
36600
|
2009/1/6 14:00:34 |
"这几句代码坛主评为“深浅度：中级”，我觉得也太不负责任了吧！！！"
要求不能太高,2ccc,不是以前了,前几天还要买呢^_^ |
| isinosun
36597
|
2009/1/6 10:04:39 |
| 这几句代码坛主评为“深浅度：中级”，我觉得也太不负责任了吧！！！ |
