| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/12 13:04:12 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 单击button时,timer.Enabled:=true;执行ontimer事件。 执行完了后,timer.Enabled:=false; 可再单击button,为什么ontimer下的事件不执行了呢？ ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/12 13:12:06 | ||||
| 1楼： | 按得太快了, 单击button时,button.Enabled:=false; 执行完了后,button.Enabled:=ture; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/12 13:24:15 | ||||
| 2楼： | 不是这个原因哈。 这个我早就试过了，还是一样的没法。 大家帮帮忙三。 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/12 13:32:25 | ||||
| 3楼： | procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Timer1.Enabled :=True; end; procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin i:=StrToInt(Label1.Caption); inc(i); Label1.Caption:=IntToStr(i); Timer1.Enabled :=False; end; 是不是你的timer1.interval太大了? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/12 13:39:22 | ||||
| 4楼： | 你的程序肯定有逻辑上的问题 你的某个标志变量可能被设置了！使的程序无法在执行！如果你不贴出代码谁也不知道你错在哪里 只有自己看喽！ ----------------------------------------------  
|
|||||
| 作者： |
|
2004/3/12 13:47:29 | ||||
| 4楼： | 不哈，不大啊。 你试着把你的代码中的label1换成label2试试，好像就不行了。 ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/12 13:49:07 | ||||
| 5楼： | 贴出你的代码 谁知道你怎么写的！ ----------------------------------------------
|
|||||
| 作者： |
|
2004/3/12 13:52:27 | ||||
| 6楼： | 贴出源码，想除错，也得让大家看到啊 ----------------------------------------------  敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/12 13:55:45 | ||||
| 7楼： | procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin i:=StrToInt(Label1.Caption); inc(i); label1.Caption:=IntToStr(i); label2.Caption:=IntToStr(i); end; 代码就这么简单啊，为什么把第一个label去了就没法进行了？ ---------------------------------------------- Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910 |
|||||
| 作者： |
|
2004/3/12 14:11:18 | ||||
| 8楼： | 看这段有什么用，Timer设为false的那段代码呢？ ---------------------------------------------- 敬请光临 学海Delphi站 http://delphi.studysea.net 学海无涯，让我们共同成长！ |
|||||
| 作者： |
|
2004/3/12 15:12:18 | ||||
| 9楼： | 别那么吝嘛，把该贴的都贴出来啊 ---------------------------------------------- 我走着 走着 便天黑了 我看着 看着 便睡着了 |
|||||
| 作者： |
|
2004/3/12 16:10:37 | ||||
| 10楼： | 哈哈,把人气跑了吧! ---------------------------------------------- - 
|
|||||
| 信息 |
| 登陆以后才能回复 |
