明天回家，认不认识的兄弟们都来接分。! 呵
--------------------------------------------------------------另外，如果你有空不妨看看下面的文章；如果写的不好，请您一笑置之，千万别拍板砖... -_-#前些天懵老大把我带进 DELPHI鸟窝 群中，讨论学习关于界面的问题。之前写过一个进度条的演示，发布在Blog上面，好像很少人上去看(可能是俺菜，不出名，哈)，所以就发上来献丑了；好，闲话少说，看正文~~~首先、请看这图片：http://blog.csdn.net/images/blog_csdn_net/jackie168/104330/r_bar.jpg
第一眼感觉是不是有点像第三方？其实不然，下面贴出代码，相信你一眼就能看破。unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls; {=====================================================
DESIGN BY : 花好月圆 / 玉面书生
DATE: 2005-01-27
BLOG: http://blog.csdn.net/jackie168
EMAIL: [email protected] 文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
=====================================================}
type
TFrm_PanelBar = class(TForm)
Button1: TButton;
Timer1: TTimer;
Button2: TButton;
BarFrame: TPanel;
PanelBar: TImage;
PanelLab: TLabel;
CheckBox1: TCheckBox;
ColorBox1: TColorBox;
Label1: TLabel;
Bevel1: TBevel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Frm_PanelBar: TFrm_PanelBar;implementation{$R *.dfm}procedure TFrm_PanelBar.Timer1Timer(Sender: TObject);
var n,m:integer; //变量
begin
//-----------------------------显示进度条状态--------------------------------
PanelBar.Width:=PanelBar.Width+1;
n:=PanelBar.Width;
m:=BarFrame.Width-2;
Panellab.Caption:=FormatFloat('0',n/m*100)+'%';
//-----------------------------循环滚动进度条--------------------------------
if PanelBar.Width=BarFrame.Width-2 then PanelBar.Width:=0;
end;procedure TFrm_PanelBar.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;procedure TFrm_PanelBar.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;procedure TFrm_PanelBar.FormCreate(Sender: TObject);
begin
//-----------------------------初始化数据-------------------------------------
PanelBar.Left:=1;
PanelBar.Top:=1;
PanelBar.Width:=0;
PanelBar.Height:=BarFrame.Height-2;
PanelLab.Top:=(BarFrame.Height-PanelLab.Height) div 2;
PanelLab.Left:=(BarFrame.width-PanelLab.width) div 2; //-------------------------------开双缓区-------------------------------------
self.DoubleBuffered:=true;
end;procedure TFrm_PanelBar.CheckBox1Click(Sender: TObject);
begin
//------------------------------是否显示进度标签-----------------------------
PanelLab.Visible:=not PanelLab.Visible;
end;procedure TFrm_PanelBar.ColorBox1Change(Sender: TObject);
begin
//------------------------------设置背景颜色---------------------------------
BarFrame.Color:=ColorBox1.Selected;
end;end.//******************* 窗体文件内容(Unit1.dfm)：*******************object Frm_PanelBar: TFrm_PanelBar
Left = 374
Top = 263
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #36827#24230#26465#30340#28436#31034
ClientHeight = 144
ClientWidth = 393
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Bevel1: TBevel
Left = 8
Top = 8
Width = 377
Height = 81
Shape = bsFrame
end
object Label1: TLabel
Left = 155
Top = 58
Width = 72
Height = 12
Caption = 'BrushColor'#65306
end
object BarFrame: TPanel
Left = 24
Top = 24
Width = 347
Height = 17
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
object PanelBar: TImage
Left = 1
Top = 1
Width = 25
Height = 15
Picture.Data = {
07544269746D61702E020000424D2E0200000000000036000000280000000C00
00000E0000000100180000000000F80100000000000000000000000000000000
0000FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FBE5BCFBE5BC
FBE5BCFBE5BCFAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FADF
B3FADFB3FADFB3FADFB3F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6
D6A5F8D7A6F8D7A6F8D7A6F8D7A6F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5
F6D6A5F6D6A5F8D7A6F8D7A6F8D7A6F8D7A6F6CB98F6CB98F6CB98F6CB98F6CB
98F6CB98F6CB98F6CB98F6CC97F6CC97F6CC97F6CC97F5C18CF5C18CF5C18CF5
C18CF5C18CF5C18CF5C18CF5C18CF4C38BF4C38BF4C38BF4C38BF3BE7FF3BE7F
F3BE7FF3BE7FF3BE7FF3BE7FF3BE7FF3BE7FF3BD80F3BD80F3BD80F3BD80F3BD
81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3
BD81F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F4CA9BF4CA9B
F4CA9BF4CA9BF9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F7D6
AFF7D6AFF7D6AFF7D6AFF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9
E5CCFBE5CCFBE5CCFBE5CCFBE5CCFEEFDFFEEFDFFEEFDFFEEFDFFEEFDFFEEFDF
FEEFDFFEEFDFFAEFE1FAEFE1FAEFE1FAEFE1FEEFDFFEEFDFFEEFDFFEEFDFFEEF
DFFEEFDFFEEFDFFEEFDFFAEFE1FAEFE1FAEFE1FAEFE1FDEFE3FDEFE3FDEFE3FD
EFE3FDEFE3FDEFE3FDEFE3FDEFE3FCEFE1FCEFE1FCEFE1FCEFE1}
Stretch = True
end
object PanelLab: TLabel
Left = 172
Top = 2
Width = 12
Height = 12
Caption = '0%'
Transparent = True
end
end
object Button1: TButton
Left = 109
Top = 104
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 245
Top = 104
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 1
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 24
Top = 58
Width = 97
Height = 17
Caption = 'ShowText'
Checked = True
State = cbChecked
TabOrder = 3
OnClick = CheckBox1Click
end
object ColorBox1: TColorBox
Left = 227
Top = 53
Width = 145
Height = 22
DefaultColorColor = clBtnFace
NoneColorColor = clBtnFace
Selected = clBtnFace
ItemHeight = 16
TabOrder = 4
OnChange = ColorBox1Change
end
object Timer1: TTimer
Enabled = False
Interval = 20
OnTimer = Timer1Timer
Left = 48
Top = 96
end
end
--------------------------------------------------------------另外，如果你有空不妨看看下面的文章；如果写的不好，请您一笑置之，千万别拍板砖... -_-#前些天懵老大把我带进 DELPHI鸟窝 群中，讨论学习关于界面的问题。之前写过一个进度条的演示，发布在Blog上面，好像很少人上去看(可能是俺菜，不出名，哈)，所以就发上来献丑了；好，闲话少说，看正文~~~首先、请看这图片：http://blog.csdn.net/images/blog_csdn_net/jackie168/104330/r_bar.jpg
第一眼感觉是不是有点像第三方？其实不然，下面贴出代码，相信你一眼就能看破。unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls; {=====================================================
DESIGN BY : 花好月圆 / 玉面书生
DATE: 2005-01-27
BLOG: http://blog.csdn.net/jackie168
EMAIL: [email protected] 文章为作者原创，转载前请先与本人联系，转载请注明文章出处、保留作者信息，谢谢支持！
=====================================================}
type
TFrm_PanelBar = class(TForm)
Button1: TButton;
Timer1: TTimer;
Button2: TButton;
BarFrame: TPanel;
PanelBar: TImage;
PanelLab: TLabel;
CheckBox1: TCheckBox;
ColorBox1: TColorBox;
Label1: TLabel;
Bevel1: TBevel;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Frm_PanelBar: TFrm_PanelBar;implementation{$R *.dfm}procedure TFrm_PanelBar.Timer1Timer(Sender: TObject);
var n,m:integer; //变量
begin
//-----------------------------显示进度条状态--------------------------------
PanelBar.Width:=PanelBar.Width+1;
n:=PanelBar.Width;
m:=BarFrame.Width-2;
Panellab.Caption:=FormatFloat('0',n/m*100)+'%';
//-----------------------------循环滚动进度条--------------------------------
if PanelBar.Width=BarFrame.Width-2 then PanelBar.Width:=0;
end;procedure TFrm_PanelBar.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;procedure TFrm_PanelBar.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;procedure TFrm_PanelBar.FormCreate(Sender: TObject);
begin
//-----------------------------初始化数据-------------------------------------
PanelBar.Left:=1;
PanelBar.Top:=1;
PanelBar.Width:=0;
PanelBar.Height:=BarFrame.Height-2;
PanelLab.Top:=(BarFrame.Height-PanelLab.Height) div 2;
PanelLab.Left:=(BarFrame.width-PanelLab.width) div 2; //-------------------------------开双缓区-------------------------------------
self.DoubleBuffered:=true;
end;procedure TFrm_PanelBar.CheckBox1Click(Sender: TObject);
begin
//------------------------------是否显示进度标签-----------------------------
PanelLab.Visible:=not PanelLab.Visible;
end;procedure TFrm_PanelBar.ColorBox1Change(Sender: TObject);
begin
//------------------------------设置背景颜色---------------------------------
BarFrame.Color:=ColorBox1.Selected;
end;end.//******************* 窗体文件内容(Unit1.dfm)：*******************object Frm_PanelBar: TFrm_PanelBar
Left = 374
Top = 263
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #36827#24230#26465#30340#28436#31034
ClientHeight = 144
ClientWidth = 393
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Bevel1: TBevel
Left = 8
Top = 8
Width = 377
Height = 81
Shape = bsFrame
end
object Label1: TLabel
Left = 155
Top = 58
Width = 72
Height = 12
Caption = 'BrushColor'#65306
end
object BarFrame: TPanel
Left = 24
Top = 24
Width = 347
Height = 17
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
object PanelBar: TImage
Left = 1
Top = 1
Width = 25
Height = 15
Picture.Data = {
07544269746D61702E020000424D2E0200000000000036000000280000000C00
00000E0000000100180000000000F80100000000000000000000000000000000
0000FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FEE4C0FBE5BCFBE5BC
FBE5BCFBE5BCFAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FAE0B2FADF
B3FADFB3FADFB3FADFB3F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6
D6A5F8D7A6F8D7A6F8D7A6F8D7A6F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5F6D6A5
F6D6A5F6D6A5F8D7A6F8D7A6F8D7A6F8D7A6F6CB98F6CB98F6CB98F6CB98F6CB
98F6CB98F6CB98F6CB98F6CC97F6CC97F6CC97F6CC97F5C18CF5C18CF5C18CF5
C18CF5C18CF5C18CF5C18CF5C18CF4C38BF4C38BF4C38BF4C38BF3BE7FF3BE7F
F3BE7FF3BE7FF3BE7FF3BE7FF3BE7FF3BE7FF3BD80F3BD80F3BD80F3BD80F3BD
81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3BD81F3
BD81F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F3CA99F4CA9BF4CA9B
F4CA9BF4CA9BF9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F9D5B1F7D6
AFF7D6AFF7D6AFF7D6AFF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9E5CCF9
E5CCFBE5CCFBE5CCFBE5CCFBE5CCFEEFDFFEEFDFFEEFDFFEEFDFFEEFDFFEEFDF
FEEFDFFEEFDFFAEFE1FAEFE1FAEFE1FAEFE1FEEFDFFEEFDFFEEFDFFEEFDFFEEF
DFFEEFDFFEEFDFFEEFDFFAEFE1FAEFE1FAEFE1FAEFE1FDEFE3FDEFE3FDEFE3FD
EFE3FDEFE3FDEFE3FDEFE3FDEFE3FCEFE1FCEFE1FCEFE1FCEFE1}
Stretch = True
end
object PanelLab: TLabel
Left = 172
Top = 2
Width = 12
Height = 12
Caption = '0%'
Transparent = True
end
end
object Button1: TButton
Left = 109
Top = 104
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 245
Top = 104
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 1
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 24
Top = 58
Width = 97
Height = 17
Caption = 'ShowText'
Checked = True
State = cbChecked
TabOrder = 3
OnClick = CheckBox1Click
end
object ColorBox1: TColorBox
Left = 227
Top = 53
Width = 145
Height = 22
DefaultColorColor = clBtnFace
NoneColorColor = clBtnFace
Selected = clBtnFace
ItemHeight = 16
TabOrder = 4
OnChange = ColorBox1Change
end
object Timer1: TTimer
Enabled = False
Interval = 20
OnTimer = Timer1Timer
Left = 48
Top = 96
end
end
还三J齐发-_-#
你就是第三方嘛，那还用说……
您要查看的页当前不可用。网站可能遇到技术问题，或者您需要调整浏览器设置。 --------------------------------------------------------------------------------请尝试以下操作:单击刷新按钮，或以后再试。如果您已经在地址栏中输入该网页的地址，请确认其拼写正确。要查看连接设置，请单击工具菜单，然后单击 Internet 选项。在连接选项卡上，单击局域网设置。 这些设置应该与您局域网(LAN)管理员或 Internet 服务提供商(ISP)所提供的相匹配。
如果您的网络管理员允许，Microsoft Windows 可以检查您的网络并自动查找网络连接设置。
如果您希望 Windows 进行查找，
请单击检测网络设置。
某些站点要求 128-位的连接安全性。单击帮助菜单，然后单击关于 Internet Explorer 可以查看您所安装的安全强度。
如果您要访问某安全站点，请确保您的安全设置能够支持。请单击工具菜单，然后单击 Internet 选项。在“高级”选项卡上，滚动到“安全”部分，复选 SSL 2.0、SSL 3.0、TLS 1.0、PCT 1.0 设置。
单击后退按钮，尝试其他链接。 找不到服务器或发生 DNS 错误
Internet Explorer