end;
procedure TForm1.N2Click(Sender: TObject);
begin
timer1.Enabled:=not timer1.Enabled;
if timer1.Enabled then
n2.Caption:=''''暂停''''
else
n2.Caption:=''''开始'''';
end;
end.
{-------------------------------------------------------------------------}
{----------------------------dfm内容--------------------------------------}
object Form1: TForm1
Left = 308
Top = 302
BorderStyle = bsNone
Caption = ''''xiewh_open''''
ClientHeight = 59
ClientWidth = 179
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ''''MS Sans Serif''''
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu1
OnCreate = FormCreate
OnMouseDown = FormMouseDown
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
PixelsPerInch = 96
TextHeight = 13
object Shape1: TShape
Left = 0
Top = 0
Width = 179
Height = 2
Align = alTop
Pen.Color = clBlue
OnMouseDown = FormMouseDown
OnMouseMove = FormMouseMove
OnMouseUp = FormMouseUp
end
object Label1: TLabel
Left = 8
Top = 11
Width = 57
Height = 13
AutoSize = False
Caption = #21477#26564#21495#65306
Transparent = True
end
object Label2: TLabel
Left = 8
Top = 26
Width = 64
Height = 13
AutoSize = False
Caption = #26631#39064#21517#65306
Transparent = True
end
object Label3: TLabel
Left = 56
Top = 12
Width = 117
Height = 13
AutoSize = False
Transparent = True
end
object Label4: TLabel
Left = 56
Top = 25
Width = 117
Height = 13
AutoSize = False
Transparent = True
end
object Label5: TLabel
Left = 8
Top = 40
Width = 56
Height = 13
Caption = #31867#12288#21517#65306
Transparent = True
end
object Label6: TLabel
Left = 56
Top = 39
Width = 117
Height = 13
AutoSize = False
Transparent = True
end
object Shape2: TShape
Left = 0
Top = 0
Width = 2
Height = 73
Pen.Color = clActiveCaption
Pen.Width = 2
end
object Shape3: TShape
Left = 0
Top = 57
Width = 179
Height = 2
Align = alBottom
Pen.Color = clBlue
Pen.Width = 2
end
object Shape4: TShape
Left = 177
Top = -1
Width = 2
Height = 71
Pen.Color = clBlue
Pen.Width = 2
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 120
Top = 32
end
object PopupMenu1: TPopupMenu
Left = 88
Top = 32
object N2: TMenuItem
Caption = #26242#20572
OnClick = N2Click
end
object N1: TMenuItem
Caption = #36864#20986
OnClick = N1Click
end
end
end
{--------------------------------------------------------------------------}
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
