Изменение размера формы по размеру екрана

[Simon..14]

подскажите как можно сдклать чтоб размер формы менялся в зависимости от розмеров монитора
Например если прогамма писалась на компютере с 17 дуймовым екраном а потом при запуске на 15 дуймовом розмер формы подогнался под 15 дуймовый мониторЗарание спасибо

[Sazary]

Может, вы, все-таки, имеете в виду расширение экрана?

Form1->Width = Screen->Width;
Form1->Height = Screen->Height;

Вообще расширение так можно получить (на апи):

HDC scr = GetDC(NULL);
int w = GetDeviceCaps(scr,HORZRES);  // по горизонтали
int h = GetDeviceCaps(scr,VERTRES);  // по вертикали
ReleaseDC(NULL,scr);

[Simon..14]

Я имел виду что после создания проетка на 17 дюймовом мониторе он открылся на 15 с сохранением пропорций относительно екрана

[Sazary]

Ну тогда вам не диагональ нужна, а именно расширение. Как его получить смотрите выше.

[Simon..14]

Сообщение от Sazary

Form1->Width = Screen->Width;
Form1->Height = Screen->Height;

если я правильно понял то етим мы сделаем размер формы равным розширению екрана
хотя возможно я вас не понял
у меня есть 2 формы на одной из них одна большаяы картинка и много маленьких мне нужно чтоб при запуске на компютере с маленьким розрешением екрана все мои рисунки и формы уменьшелись под розширение данного екрана а не обрезалисьи не сдвигались

[Sazary]

если я правильно понял то етим мы сделаем размер формы равным розширению екрана

Да. Это я для примера привел.

Тогда узнавайте расширение и позиционируйте формы используя эти значения.
Например, чтобы иметь сдвиг в 20%, пишете так:

Form1->Left = Screen->Width*0.2;

Ну и сами размеры тоже также.

[Simon..14]

хорошо пасиб будем пробовать

[Simon..14]

Clava->Proportional=true ;
Clava->Stretch =true ;
for(int i=1;i<=66;i++)
{((TImage*)FindComponent("Image"+IntToStr(i)))->Stretch=true ;
((TImage*)FindComponent("Image"+IntToStr(i)))->AutoSize=false ; }
 l= Screen->Width+200;
 k =Screen->Height+400;
 Form6->ScaleBy(k, l);

Сделал так при измененении розмера формы компоненты уменьшаються но при изменении розширения форма не уменьшаеться
в чем ошибка подскажите