Code

var
  Form1: TForm1;
  count: integer;
  aa, bb: iBoxItem;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  count:=0;
end;

procedure TForm1.FC1MouseDown(ASender: TObject; button: TOleEnum;
  keys: Smallint; docX, docY: Integer);
begin

end;

procedure TForm1.FC1BoxCreated(ASender: TObject; const box: IBoxItem);
begin
  box.UserData:=0; // Box 표시용.
  bb:=FC1.CreateBox(box.left, box.top, 60, 30);
  bb.Tag:=box.Tag;
  bb.UserData:=1; // 아이디 표시용.
  bb.Transparent:=true;
  bb.Locked:=true;
  bb.IgnoreLayout:=true;

  fc1.CreateGroup(box).AttachToCorner(bb, 0);
end;

procedure TForm1.FC1Clicked(ASender: TObject; button: TOleEnum; x,
  y: Integer);
begin
  aa:=FC1.CreateBox(X, Y, 10, 10);
  aa.Tag:=count;
  count:=count+1;

  FC1.OnBoxCreated(self, aa);
end;
// 감추기,
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=0 to FC1.boxes.count-1 do
  begin
    if FC1.boxes[i].UserData=1 then begin
	FC1.boxes[i].Text:='';

    end;
  end;

end;
// 보이기
procedure TForm1.Button2Click(Sender: TObject);
var  i: integer;
begin

  for i:=0 to FC1.boxes.count-1 do
  begin
    if FC1.boxes[i].UserData=1 then begin
	//bb:=FC1.boxes[i].ContainedItems.AttachedBoxes[0];
	FC1.boxes[i].Text:=IntToSTR(FC1.boxes[i].Tag);
    end;
  end;

end;