Inno Setup入门（二十三）——Inno Setup类参考（9）

时间：2019-04-30 10:37:23 阅读：184 评论：0 收藏：0 [点我收藏+]

今天就简单说一下ProgressBar。

TNewProgressBar = class(TWinControl)

property Min: Longint; read write;

property Max: Longint; read write;

property Position: Longint; read write;

property State: TNewProgressBarState read write;

property Style: TNewProgressBarStyle read write;

end

可用TNewProgressBarState 设置状态 (npbsNormal, npbsError, npbsPaused)

使用TNewProgressBarStyle设置风格 (npbstNormal, npbstMarquee)

只贴代码段：

[code]

var

myPage:TWizardPage;

pb1, pb2,pb3:TNewProgressBar;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, ‘标题：自定义页面‘, ‘描述：这是我的自定义页面‘);

pb1 := TNewProgressBar.Create(mypage);

pb1.Left:=20;

pb1.Top:=20;

pb1.Parent := mypage.Surface;

pb1.State := npbsError;

pb1.Position := 25;

pb2 := TNewProgressBar.Create(mypage);

pb2.Left:=20;

pb2.Top:=50;

pb2.Parent := mypage.Surface;

pb2.Position := 50;

pb3 := TNewProgressBar.Create(mypage);

pb3.Left:=20;

pb3.Top:=80;

pb3.Parent := mypage.Surface;

pb3.Position := 76;

{Position设置了也没用}

pb3.Style:=npbstMarquee;

end;

运行效果：

原文：https://www.cnblogs.com/okgogo2000/p/10794121.html

踩

(0)

评论一句话评论（0）

分享档案

更多>