장덕권 wrote:

> 안녕하세요.

>

> FindComponent 함수의 사용법과 만약 폼위에 버튼들이 여러개 있을때 서로 구분하기

> 위해서는 FindComponent을 어떻게 사용해야 하는지가 궁금합니다.

> 그리고 버튼이 몇개인지를 알려면 어떻게 해야 하는지.. 미치겠읍니다.

>

> 부탁합니다. 꾸벅....



만약 폼위의 모든 버튼을 참조하려면

var

comp: TComponent;

i: Integer;

begin

for i:= 0 to ComponentCount-1 do

begin

comp := Components[i];

if comp is TButton then

with TButton(comp) do

begin

Caption := '찾았다';

end;

end;





특정 이름의 버튼들만 검색할때

var

btn: TButton;

i: Integer;

begin

for i:= 1 to 10 do

begin

// 버튼 10개의 이름을 button1, button2,...,button10 식으로

// 만들어져 있을때

btn := FindComponent('button'+IntToStr(i));

if Assigned(btn) Then // nil 검사보다 정확함

btn.Caption := '찾았다';

end;