castle road wrote:

> 현재 폼위에 특정 콤포넌트의 존재를 알고 싶습니다.

> 예를 들어

> 현재 폼에 listbox1이라는 component가 있는지 알고 싶을때 어떻게 하지요?



제목이.. 특정 콤포넌트 존재를 알고 싶다!!



이러니깐.. 꼭 문성근 처럼 이야기 하구 싶군요...



문성근이 이렇게 하나요?



"여기서 우리가 주목해야될 사실은..." 헤헤...



너무 이상한 말을 했군요..



저도 한가지 예를 들지요...



폼을 클릭할때 listbox1에.. 현재 떠 있는 컴포가 어떤게 떠 있는지.. 알수 있는 방법..



procedure TForm1.FormClick(Sender: TObject);

var i : integer;

begin

ListBox1.Clear;

for i := 0 to form1.ComponentCount-1 do begin

ListBox1.Items.Add(form1.Components[i].Name);

end;

end;



이러면.. 모든 컴포를 알수 있습니다.







그리고...



또 추가루 하나더..(덤입니다.)



PageControl1 같이.. 특정 컴포 위에 있는 컴포만 알수 있는 방법입니다.

이것두 리스트 박스에 넣는 방법이구요..



procedure TForm1.Button2Click(Sender: TObject);

var i : integer;

begin

ListBox1.Clear;

for i := 0 to Form1.PageControl1.ActivePage.ControlCount - 1 do begin

ListBox1.Items.Add(form1.PageControl1.ActivePage.Controls[i].Name);

end;

end;





지금까지.. 델파이세상(http://www.freechal.com/delphiworld)의 조규춘이였습니다.

(꼭 누비라 뚜 선전같당)



행복하셔용~