我知道datoncg是什么意思了
将某个段的Control设为一个Panel并将Panel的Anchors都设为true
在Panel上放置一Image(如果要动画可用Animate)将Image的Align设为alRight即可
看看下面的.dfm应该是你要的
object Form1: TForm1
Left = 192
Top = 107
Width = 544
Height = 375
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object CoolBar1: TCoolBar
Left = 0
Top = 0
Width = 536
Height = 75
Bands = <
item
Control = Panel1
ImageIndex = -1
Width = 532
end>
object Panel1: TPanel
Left = 13
Top = 0
Width = 519
Height = 25
Align = alClient
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 0
object Image1: TImage
Left = 489
Top = 0
Width = 30
Height = 25
Align = alRight
end
end
end
end
