谁有例子:在状态条上放置一个进度条?

jianglai 2001-07-15 11:09:28
我是delphi菜鸟,请帮帮我吧
...全文
82 4 打赏 收藏 转发到动态 举报
写回复
用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算一下即可
简单吧@_@

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧