초보자 wrote:

>

> 탭시트가 2개이구요..각각 editBox들이 올려져 있습니다.

>

> Active된 시트내에 있는 editBox들을 초기화

>

> (For문으로 전체 컴포넌트들을 순환하면서 초기화... .text := '';)

>

> 했는데...Active되지 않은 탭 시트에 있는 editBox들도

>

> 초기화가 되버리네요 T_T

>

> 어떻게 Active된 탭시트 내에 있는 editbox만 초기화 되게 할 순 없나요..

>

> 꼭 갈차주세요..안그러면..--;...일일이 다 해줘야 해요..T_T...

>

>



다음과 같이 해보셔요~



procedure TForm1.Button1Click(Sender: TObject);

var

i : integer;

begin

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

if form1.PageControl1.ActivePage.Controls[i].ClassType = Tedit then

begin

TEdit(form1.PageControl1.ActivePage.Controls[i]).Text := '';

end;

end;

end;



http://www.freechal.com/delphiworld