如何用代码实现fcOutLookBar中动态增删(100分)

1stclass有个fcOutLookBar控件，
在fcOutLookBar中用代码实现增加shapebtn和outlooklist。
最好提供源代码。

在线等待。分不够可以加

给你一个过程
vdl,vcxmc 是 vshapebtn 上的caption 及outlooklist上的 caption,
imageindex 是显示的图标

procedure tfrm_cxdy.proc_addoutlook(vdl,vcxmc:string;imageindex:integer);;
var
voutlookpage:tfcoutlookpage;
voutlooklistitem:tfcoutlooklistitem;
i:integer;
flag:boolean;
begin
flag:=false;
for i:=0 to (outlook.OutlookItems.Count-1) do begin
voutlookpage:=outlook.OutlookItems;
if trim(voutlookpage.Button.Caption)=vdl then begin
voutlooklistitem:=voutlookpage.OutlookList.Items.Add ;
voutlooklistitem.Text:=vcxmc;
voutlooklistitem.ImageIndex :=imageindex;
flag:=true;
break;
end;
end;
if not flag then begin
voutlookpage:=outlook.OutlookItems.Add;
voutlookpage.OutlookList.Images:=image;
voutlookpage.Button.Caption:=vdl;
voutlooklistitem:=voutlookpage.OutlookList.Items.Add ;
voutlooklistitem.Text:=vcxmc;
voutlooklistitem.ImageIndex :=imageindex;
end;
end;

多人接受答案了。

接受答案了.