오류 메세지 ---> invalid floating point operation



해상도 상관없이 항상 일정한 폼을 띄울려고 하는데.. 자꾸 이런 오류가 나네요..

<소스는 밑의 있습니다>

도저히 이유를 몰라서 이렇게 올립니다..

메인폼은(MDIForm)이고 나머지 폼들은(Normal)입니다..이것까지는 상관없을것 같은데..

폼의 borderstyle은 single,autoscroll은 false로...속성에서 할수 있을것도 같은데.

1024x768모드에서는 다 보이는 컴포넌트들이

800x600모드에서는 오류메세지 박스가 나오고 확인을 누르면 잘려서 나옵니다..컴포넌트

크기도 잘리구요..bitbtn 안에 있는 이미지는 해상도의 상관없이 일정하게 나오네요..

해상도의 따라 줄거나 커지지 않나 보죠?

만약의 폼 10개라면 아래 소스와 똑같이 각각 코딩했거든요..

각각 코딩할 필요없이 한번만 할수도 있을거 같은데..전..잘 모르겠습니다..

보다 나은 프로그램이 될 수 있도록 여러 고수님들의 조언 충고 부탁드립니다..

도와주실줄 믿고 겸허히 기다리겠습니다..

좋은 하루 되십시요..

경기도 안산에서



implementation



uses form3,form5



const

ScreenWidth: LongInt = 1024; {1024x768 모드에서 설계}

ScreenHeight: LongInt = 768;



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

scaled := true;

if (screen.width <> ScreenWidth) then



begin

height := longint(height) * longint(screen.height) DIV ScreenHeight;

width := longint(width) * longint(screen.width) DIV ScreenWidth;

scaleBy(screen.width, ScreenWidth);

end;

end;