社区
Delphi
帖子详情
谁有例子:在状态条上放置一个进度条?
jianglai
2001-07-15 11:09:28
我是delphi菜鸟,请帮帮我吧
...全文
82
4
打赏
收藏
谁有例子:在状态条上放置一个进度条?
我是delphi菜鸟,请帮帮我吧
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Clus
2001-07-15
打赏
举报
回复
同意楼上的说。
别忘记开个线程..
prettywolf
2001-07-15
打赏
举报
回复
例子倒没有,方法是:
取得状态条的窗口指针,然后在这个窗口上画进度条.
taxi
2001-07-15
打赏
举报
回复
自己继承TStatusBar做一个可接受控件的TStatusBar,Very Easy
interface
uses
Classes, Controls, ComCtrls;
type
TStatusBarEx = class(TStatusBar)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('RainbowSoft', [TStatusBarEx]);
end;
constructor TStatusBarEx.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
ControlStyle:=ControlStyle+[csAcceptsControls];
end;
end.
tastenet
2001-07-15
打赏
举报
回复
先将statusbar的panel的style属性改为psOwnerDraw,在statusbar的OnDrawPanel事件中加入例如以下代码:
ProgressBar1.Parent:=StatusBar; //不是StatusBar1,仔细观察事件参数
ProgressBar1.Top:=rect.top;
ProgressBar1.Left:=rect.left;
关于高度,宽度用rect算一下即可
简单吧@_@
PT80-NEAT开发指南v1.1
建立
一个
应用程序 ................................................................................................................................ 17 应用程序的关闭 .......................................
Delphi专业 界面 控件Skin++ For Delphi (一)
值得一提的是,Skin++对Label的支持是彻底,并且不像其他的换肤软件需要在窗体上
放置
一个
他们提供的特有的控件。因为在已经成型的软件中, 如果让用户来
一个
一个
替换原有的Label控件,将是非常痛苦的事情。 对...
Delphi 专业 界面 控件 Skin++ For Delphi(二)
值得一提的是,Skin++对Label的支持是彻底,并且不像其他的换肤软件需要在窗体上
放置
一个
他们提供的特有的控件。因为在已经成型的软件中, 如果让用户来
一个
一个
替换原有的Label控件,将是非常痛苦的事情。 对...
Visual C++ 编程资源大全(控件 窗体)
带有2个
例子
:
一个
是仿Word的界面,漂亮极;另
一个
是用MicroSoft InterNet Explorer的Control设计的Web Browser。大家可以看看怎么使用那个Control.(要求IE为缺省的Browser)(1747KB)<END><br>106,ANIGIF1.zip 是...
VB编程资源大全(控件 其它1)
s013_ariadtbar.ZIP 用这个控件做工具条不须象VB自带的要用到ImageList控件,同时还有许多很方便的功能,慢慢去发掘吧(154KB) 61,s012.ZIP
一个
很好
进度条
控件,可以
放置
图片(142KB) 62,s011.ZIP ...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章