没有分了,请教如何把进度条放到StatusBar上,只能表示感谢! 本人没试过,但能给你个建议,你试试看行不行!DELPHI的所有界面上的显示画面跟WINDOWS的机制是相同的,都是画上去的,所以你可以用截取STATUSBAR的RECT(CANVAS属性)把进度条画上去! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我不知道有没有别的要求;你可以用一个groupBox,将它的Align设为botton再添加StatusBar,修改它的Align再添加进度条 只需设置Parent为StatusBar和Left,Top属性即可(在窗体建立事件中) 哈,怪不得你没有分了,用1stclass控件就行了 var Rect:TRect;beginRect.Left:=2+Num;Rect.Top:=4;Rect.Right:=22+Num;Rect.Bottom:=StatusBar1.Height-2;StatusBar1.Canvas.Brush.Color:=clinfobk;StatusBar1.Canvas.FillRect(Rect);Num:=Num+20;end;把这个过程放在TTimer的OnTimer的事件里在窗体的FromShow事件里:Num:=0;这是连续的,断续的,你自己该吧 用一个Panel吧!align:=albottom;然后在Panel里面放置Statusbar和其他的控件!讨论过的。搜索一下即可。 InTraweb中datamoudle到底怎么用? TreeView的问题,好闪啊 TFloatField 等等组件是从那里添加的?? Rave报表如何显示页码? AdoQuery 里Parameters使用出现了问题,请帮忙一下 请达人协助,如何处理Vista下窗口大小限制的问题 一个关于分布式编程、有点难度但不需编程的问题,发帖就给分!! 我写的一封信,大家来看看。给我点启发。 关于Tcxverticalgrid的问题 ADO 与 Sybase <<万千程序员>>!!! 请所有程序员朋友关注!!! 大虾们:做局域网的仓库管理系统,用何数据库最好?有答有分,请热烈一点!
你可以用一个groupBox,将它的Align设为botton
再添加StatusBar,修改它的Align
再添加进度条
Rect:TRect;
begin
Rect.Left:=2+Num;
Rect.Top:=4;
Rect.Right:=22+Num;
Rect.Bottom:=StatusBar1.Height-2;
StatusBar1.Canvas.Brush.Color:=clinfobk;
StatusBar1.Canvas.FillRect(Rect);
Num:=Num+20;
end;
把这个过程放在TTimer的OnTimer的事件里
在窗体的FromShow事件里:Num:=0;
这是连续的,断续的,你自己该吧