我想实现,一个按钮,点第一次时,showmessage('1');点第二次时showmessage('2');点第三次时showmessage('3');第四次时又显示为showmessage('1);五次为showmessage('2');,六次为showmessage(3);第七次时又是showmessage('1');如此循环,不能出现溢出或其他异常,怎么实现?要源码.
解决方案 »
- 怎么向TcxTreeList发送滚动条消息(WM_VSCROLL)
- 三层怎么在单机上调试,高手
- 图形问题,很急(第19天)!1分+500元人民币!
- 请教SQL高手!!!急
- 用一个按钮对两个listbox作删除操作,怎么实现?(怎样解决listbox index out of bounds(-1))
- delphi菜鸟的问题
- 帮忙,数据库问题,高分,随便奉送.哭诉克斯克斯
- [讨论]Midas中对象池Object Pooling的使用(从组件对象的释放谈成)
- 会VB,现想转为DELPHI ,书看了好几本,但真要做起东西来竟然不知如何下手,给点指点或提供点例题!
- 字体和颜色在那呀?谢谢。
- 求下载指定文件的完整程序代码
- 请问如何动态生成n个控件?n是由数据库里读出的.
x:integer;在按纽按下事件中
x;=x+1;
x:=x mod 3;
showmessage(inttostr(x));
x:=x mod 3;
if x=0 then x:=3;
showmessage(inttostr(x));
//=======if i = 4 then i :=1;
showmessage(inttostr(i));
Inc(i);