Q&A

  • 컴포넌트 동적생생 가운데...
실행중에 노트북컴포넌트의 페이지를 필요한 수만큼 생성시키고, 각 페이지위에 패널위에 라벨을 붙여서, 사용자가 지정한 만큼만 생성시키고 싶은데 잘 안돼서 글을 올립니다. 그리고 생성된 패널수를 계산하여 간격을 조정하려면 어떻게 해야 할까요?

1  COMMENTS
  • Profile
    최석기 1999.06.18 18:20
    박성훈 께서 말씀하시기를...

    > 실행중에 노트북컴포넌트의 페이지를 필요한 수만큼 생성시키고, 각 페이지위에 패널위에 라벨을 붙여서, 사용자가 지정한 만큼만 생성시키고 싶은데 잘 안돼서 글을 올립니다. 그리고 생성된 패널수를 계산하여 간격을 조정하려면 어떻게 해야 할까요?



    다음은 PageControl의 TabSheet에 있는 Panel의 갯수를 구하는 방법입니다.



    procedure TForm1.Button1Click(Sender: TObject);

    var

    PanelCnt, i: integer;

    begin

    PanelCnt := 0;

    for i := 0 to TabSheet1.ControlCount - 1 do begin

    if TabSheet1.Controls[i] is TPanel then

    PanelCnt := PanelCnt + 1;

    end;

    Edit1.Text := IntToStr(PanelCnt);

    end;