Delphi编程修改ProgressBar的颜色

delphi编程修改ProgressBar的颜色

关键代码如下：

uses

CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);

begin

// Set the Background color to teal

Progressbar1.Brush.Color := clTeal;

// Set bar color to yellow

SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);

end;

WinXP风格进度条

const

{$EXTERNALSYM PBS_MARQUEE}

PBS_MARQUEE = 08;

procedure TForm1.FormCreate(Sender: TObject);

begin

SetWindowLong(ProgressBar1.Handle, GWL_STYLE,

GetWindowLong(ProgressBar1.Handle, GWL_STYLE) or PBS_MARQUEE);

end;

//------------------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

for i := 0 to 30 do

begin

Sleep(100);

ProgressBar1.StepIt;

Application.ProcessMessages;

end;

转载于:https://www.cnblogs.com/JackSun/archive/2010/09/28/1837406.html

Delphi编程修改ProgressBar的颜色相关推荐

Java游戏编程前篇修改eclipse背景颜色
最近准备开始研究java游戏设计了.(不是安卓的游戏设计,关于安卓的游戏设计,我打算学完java之后直接学cocos2dx,学习java的原因是因为在公司里接触到了eclipse,所以打算顺便将jav ...
深入delphi编程(转)
刚刚接触的delphi的朋友,可能最感兴趣的就是它丰富.强大的vcl(可视化构件库).仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动.但是,vcl只是d ...
深入delphi编程
刚刚接触的delphi的朋友,可能最感兴趣的就是它丰富.强大的vcl(可视化构件库).仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动.但是,vcl只是d ...
delphi 类的写法和控制台程序的制作---深入Delphi编程
刚刚接触的Delphi的朋友,可能最感兴趣的就是它丰富.强大的VCL(可视化构件库).仅仅向窗体上扔几个构件,甚至不用动手写代码,就能很容易地做出一个有实用价值的程序,真是令人激动.但是,VCL只是D ...
linux下 C编程改变输出字体颜色
linux下 C编程改变输出字体颜色分类: Linux基础编程 Linux操作系统 2012-09-19 10:53 1409人阅读评论(0) 收藏举报 linux编程c 格式: echo &q ...
Delphi编程中流的使用
什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具.在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向. ...
python修改turtle画笔颜色的函数_以下选项中,修改turtle画笔颜色的函数是() (8.0分)_学小易找答案...
[单选题]密码学的目的是( ) (6.0分) [单选题]下面代码的输出结果是() for s in "helloworld": if s=="w": conti ...
rs232串口通讯模块 - Delphi编程
rs232串口通讯模块 - Delphi编程 [ http://www.99inf.net/SoftwareDev/Delphi/14966.htm ] ... rs232串口通讯模块作者:佚名文章 ...
oracle 郑阿奇 pdf,Delphi编程教程 (郑阿奇) PDF扫描版
<delphi编程教程>主要包括delphi 2010集成开发环境.面向对象的pascal语言.窗体和常用组件.菜单类组件和工具栏.多窗体和mdi窗体.文件操作.数据库基础和应用(以sql ...

Delphi编程修改ProgressBar的颜色

Delphi编程修改ProgressBar的颜色相关推荐

最新文章

热门文章