procedure TForm1.FormShow(Sender: TObject);
begin
Coolbar1.ManualDock(Panel1);
end;
面板作为容器
object Panel1: TPanel
Left = 0
Top = 0
Width = 89
Height = 348
Align = alLeft
Caption = 'Panel1'
DockSite = True
TabOrder = 0
end object CoolBar1: TCoolBar;
Anchors = [akLeft, akTop, akRight, akBottom]
DockSite = True
DragKind = dkDock
Align设为alNone才会出现小x
begin
Coolbar1.ManualDock(Panel1);
end;
面板作为容器
object Panel1: TPanel
Left = 0
Top = 0
Width = 89
Height = 348
Align = alLeft
Caption = 'Panel1'
DockSite = True
TabOrder = 0
end object CoolBar1: TCoolBar;
Anchors = [akLeft, akTop, akRight, akBottom]
DockSite = True
DragKind = dkDock
Align设为alNone才会出现小x
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货