버튼이 두개가 있읍니다.



B_button 은 win_01, win_02, win_03, win_04 의 4 개의 창을 닫으려고 하구요...



A_button 은 win_20, win_21, win_22 의 3개의 창을 닫으려고 합니다.



제가 구현한 소스는



procedure TWF_main.B_buttonOnClick(Sender: TObject);

var

cnt : integer;

begin



for cnt := MDIChildCount -1 Downto 0 do

if MdiChildren[cnt].Name = 'win_01' then;

win_01.Close

else IF MdiChildren[cnt].Name = 'win_02' then

win_02.close

else IF MdiChildren[cnt].Name = 'win_03' then

win_03.close

else IF MdiChildren[cnt].Name = 'win_04' then

win_04.close;



end;



end.



물론 A 버튼도 마찮가지 입니다. 위의 예는 창이 4개 밖에는 없는데.. 실제로는 무지 많거든요 물론 위처럼 해도 될것 같은데.. 소스가 길어져서요...



위의 소스를 어떻게 하면 간단 명료하게 줄일 수가 있을까요???



답변 바랍니다... 간단한것 같은데.. 잘모르겠네요... 후후후

오늘 첫눈이 왔읍니다. .. 즐거운 겨울이 되기를.....