현재 폼에 있는 컴포넌트들을 Components배열 속성에 들어 있습니다.

is연산자를 써서 갯수를 세어보면됩니다.



function TForm1.GetPageControlCount: Integer;

// 결과값으로 현재 폼에 있는 페이지컨트롤의 수를 반환합니다.

var

I: Integer;

begin

Result := 0;

// ComponentCount는 현재 폼에 있는 컴포넌트의 갯수를 알려줍니다.

for I := 0 to ComponentCount - 1 do

begin

if Components[I] is TPageControl then

Inc(Result);

end;

end;



다음은 동적으로 생성하는 예제입니다.

var

NewPageControl: TPageControl;

begin

NewPageControl := TPageControl.Create(Self); // 컨트롤의 생성

...

// 페이지 컨트롤에 대한 세부 사항 설정(위치, 크기등...)

...

InsertControl(NewPageControl); // 폼에 페이지 컨트롤을 추가

...

// 페이지컨트롤을 사용하는 코드를 여기에...

...

// 폼의 종료와 동시에 자동으로 삭제됩니다.

end;



최은정 wrote:

> PageControl 을 User가 자유롭게 생성시키고, 삭제할수 있게 하고싶은데..

> 잘 모르겠네요..

> 현재 PageControl 이 몇개 있는지 어떻게 알수있으며,(예를들면..max 가 먹힌다든가..)

> create 시키는 방법 알려주세요.