park wrote:

> 안녕하세요!

> MDI에서 메뉴를 선택했을때 창은 뜨는데,

> 전에 띄워져 있던 창이 활성화가 되지 않아서 어떻게 하면

> 활성화가 되면서 밑에 있던 창이 위로 올라오는지 궁금합니다.

> 그리고, 자식창의 크기가 크게 되지 않네요

> 최대창으로는 하지 않고 창의 크기를 조금 크게 하고 싶거든요...

> 창을 만들때 크게해도 소용이 없어서 이러게 질문을 드립니다.

> 꼭 답변해 주세요!!!



자세한 질문 내용을 잘 모르겠군요.

저도 촛짠데...암튼 도움이 되었으면 좋겠습니다.

제가 틀리거나 질문을 잘 이해하지 못했다면 멜 보내주세요



Main_frm이 MDI 부모창이고 Sub_frm이 자식창입니다.



procedure TMain_frm.button1click(sender:TObject);

var

Wcount : word;

Bexit : Boolean;

begin

Bexit:=false;

//자식창이 활성화 되어 있는 지를 먼저 검토

for wcount :=0 to MDIChildcount-1 do

if MDIChildren[wcount] is TSub_frm then Bexit :=true;

//활성화 되어 있으면 보여준다

if BExit then begin

if Sub_frm.WindowState=wsminimized Then Sub_frm.Windowstate :=wsnormal;

Sub_frm.show;

end else begin

Sub_frm :=TSub_frm.Create(Application);

Try

Sub_frm.show;

except

Sub_frm.close;

Sub_frm.free;end;

end;

end;