곽경래 께서 말씀하시기를...

> 안녕하시지요. 저번의 답변을 잘 받았습니다.(홍의식, 김종호, 이상국님에게 감사! ^.^) 폼이 커지긴 하는데 컴포넌트가 커지지 않습니다.폼과 같은 식으로 명령을 주면 되는지.....

> 알려주세용.

> 그럼 수고하세요

>

>



곽경래님 안녕하세요?

아래내용은 화면 크기에 따라 Component의 위치와 크기를

조절하는 코드입니다.

참조하시고 즐거운 프로그래밍 하시길~



var oldwidth, oldheight : integer ;



procedure TForm1.FormCreate(Sender: TObject);

begin

oldheight := height ;

oldwidth := width ;

end;



procedure TForm1.FormResize(Sender: TObject);

var

i : integer ;

px, py, t : real ;

begin

for i:= 0 to ComponentCount -1 do

if (Components[i] is TControl) then

begin

px := oldwidth / width ;

py := oldheight / height ;

t := (Components[i] as TControl).Top ;

(Components[i] as TControl).Top := trunc(t/py) ;



t := (Components[i] as TControl).Left ;

(Components[i] as TControl).Left := trunc(t/px) ;



t := (Components[i] as TControl).height ;

(Components[i] as TControl).height := trunc(t/py) ;

t := (Components[i] as TControl).width ;

(Components[i] as TControl).width := trunc(t/px) ;

end ;

oldheight := height ;

oldwidth := width ;

end;

아래 코딩도 문제가 좀 있는 것 같애요.

윈도우 창의 전체보턴을 누르고 하면 잘 작동을 하는데

마우스로 창 사이즈를 드래그 몇번 하면 콤퍼넌트들이

사라지는군요.







구창민 wrote:

> 곽경래 께서 말씀하시기를...

> > 안녕하시지요. 저번의 답변을 잘 받았습니다.(홍의식, 김종호, 이상국님에게 감사! ^.^) 폼이 커지긴 하는데 컴포넌트가 커지지 않습니다.폼과 같은 식으로 명령을 주면 되는지.....

> > 알려주세용.

> > 그럼 수고하세요

> >

> >

>

> 곽경래님 안녕하세요?

> 아래내용은 화면 크기에 따라 Component의 위치와 크기를

> 조절하는 코드입니다.

> 참조하시고 즐거운 프로그래밍 하시길~

>

> var oldwidth, oldheight : integer ;

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> oldheight := height ;

> oldwidth := width ;

> end;

>

> procedure TForm1.FormResize(Sender: TObject);

> var

> i : integer ;

> px, py, t : real ;

> begin

> for i:= 0 to ComponentCount -1 do

> if (Components[i] is TControl) then

> begin

> px := oldwidth / width ;

> py := oldheight / height ;

> t := (Components[i] as TControl).Top ;

> (Components[i] as TControl).Top := trunc(t/py) ;

>

> t := (Components[i] as TControl).Left ;

> (Components[i] as TControl).Left := trunc(t/px) ;

>

> t := (Components[i] as TControl).height ;

> (Components[i] as TControl).height := trunc(t/py) ;

> t := (Components[i] as TControl).width ;

> (Components[i] as TControl).width := trunc(t/px) ;

> end ;

> oldheight := height ;

> oldwidth := width ;

> end;