procedure TForm1.Timer2Timer(Sender: TObject);
begin
Gauge1.Progress := Gauge1.Progress + 1;
end;
begin
Gauge1.Progress := Gauge1.Progress + 1;
end;
解决方案 »
- 怎么知道启动应用程序附带的参数
- 没有人愿意跳出窗口,去寻求更高效的UI吗?
- [Help]子父窗口返回值问题
- 自动配置操作系统
- 我想在程序中取出主窗体的所有菜单(含二级、三级等),然后将她们的caption罗列在一个listview之类的控件中,该如何做?还想问一下如何
- 送分题:这样的SQL语句怎么写?
- 保存数据时出现错误'分步式事务已完成,请将此会话登记到新事务或NULL事务中',请高手指点?
- 请问如何限制一个输入数字的长度?
- 我定义了自己的报表浏览方式后如何控制要显示的页呢,我试了好久都不知道是什么属性,望你能告诉我?
- 简单问题:如何在query中使用索引?
- UP者有分,用delphi怎样实现全屏幕显示?
- 高分在线求助,帮帮忙,,,,,,?????
begin
if gauge1.Progress<=gauge1.MaxValue
then begin
gauge1.Progress:=gauge1.Progress+10;
gauge1.update
end
else timer1.Enabled:=false;
end;我还用了gauge1.refresh还是这样,要切换一下窗口,才能发现gauge动了