이창영 wrote:

> 안녕하세요!

> 뒤늦게 델파이공부에 재미붙이고 있는 사람입니다.

> 이 사이트를 일찍알았다면 참 많은 도움이 됐을텐데.....

>

> MDI폼속에 CHILD폼의 위치를 고정시키려고 하는데 쉽지가 않군요.

> CHILD폼의 ALIGN을 alclient로 맞추면 고정은 되지만 사이즈가 MDI폼 사이즈만큼

> 커지고요.

> CHILD폼의 타이틀바도 보이게 하고 싶기때문에 맥시멈 사이즈로 만들수도 없고요.

> CHILD폼의 사이즈도 늘어나지않고 위치도 고정시키는 방법은 없는지요.

> MDI폼의 사이즈는 800X600입니다.

> MDI폼의 메뉴바와 왼쪽과 아래쪽에 위치한 판넬을 제외한 공간에

> 원하는 사이즈로 고정되는 방법을 알고싶습니다.

>





정답인지는 모르겠지만 전 이런 방법을 씁니다..

임의의 함수를 만듭니다..



procedure FromCenter(Option : Boolean; Fm : TForm);

begin

case option of

True : begin

Fm.Left := 0;

Fm.Top := 0;

end;

False : begin

Fm.Left := (Screen.Width - Fm.Width) div 2;

Fm.Top := (Screen.Height - Fm.Height) div 3;

end;

end;

end;



임의의 함수를 만든후 호출을 하죠..

procedure 메뉴클릭1(Sender: TObject);

begin

//반드시 폼을 생성후 화면의 위치를 조정 해야 한다..

Form2 := TForm2.Create(Self);

FromCenter(False, Form2)

end;