Подстроить размер формы под экран монитора

[Борис2]

Как сделать так, чтобы развёрнутая на весь экран форма, и всё что находится на ней, автоматически подстраивалось (без ScrollBars) к различным размерам экранов мониторов?

[Tayfun]

Возможно взять типичные размеры мониторов типа 640*480 и т.д. Под них примерно попробовать подогнать размеры компонентов. При запуске программы узнавать разрешение монитора и присваивать компонентам ссответствующие значения.
Узнать разрешение можно так:
Эта программа отслеживает изменение характеристик экрана.

 
...
private
  procedure WMDISPLAYCHANGE(var Msg: TWMDISPLAYCHANGE);
    message WM_DISPLAYCHANGE;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  bp: integer;
begin
  bp := GetDeviceCaps(GetDC(0), BITSPIXEL);
  Form1.Caption := 'Бит на точку - ' + IntToStr(bp) +
    ' (' + FloatToStr(IntPower(2, bp)) +
    ' цветов). Разрешение ';
  Form1.Caption := Form1.Caption + 
    IntToStr(GetDeviceCaps(GetDC(0), HORZRES)) + 'X';
  Form1.Caption := Form1.Caption + 
    IntToStr(GetDeviceCaps(GetDC(0), VERTRES)) + ' ';
end;
procedure TForm1.WMDISPLAYCHANGE(var Msg: TWMDISPLAYCHANGE);
var
  bp: integer;
begin
  bp := Msg.BitsPerPixel;
  Form1.Caption := 'Бит на точку - ' + IntToStr(bp) + 
    ' (' + FloatToStr(IntPower(2, bp)) + 
    ' цветов). Разрешение ';
  Form1.Caption := Form1.Caption + IntToStr(Msg.Width) + 'X';
  Form1.Caption := Form1.Caption + IntToStr(Msg.Height) + ' ';
end;

[OrdJONY]

Есть такой модуль Forms в нем есть тип TMonitor

 Height:= Monitor.Height
 Width:= Monitor.Width

Такими простыми манипуляциями мы узнаем разрешение монитора

[Борис2]

Я понял так:
1.Нужно сделать программу под конкретный монитор (с конкретными Height1 и Width1);
2.Предусмотреть в программе определение параметров того монитора, с которым работает (на котором установлена) программа (т.е. Height2 и Width2);
3.Вычислять коэффициенты пропорциональности:
kH:=Height2/Height1; kW:=Width2/Width1;
4.Пересчитывать, используя коэффициенты kH и kW, размеры всех компонентов (HeightK и WidthK), размещённых на форме, и их положение (LeftK и TopK) на форме.
Неужели всё так сложно и громоздко?

[Stilet]

Ну можно еще попробовать воспользоваться свойствами anchors у компонентов, но шрифты придется самому менять при изменении размера

[Andrei]

Можно поэксперементировать с методом формы ScaleBy. Он позволяет пропорционально менять размер формы и всех элементов, расположенных на ней. Одновременно он пытается подстроить и размеры шрифтов. В принципе, он работает, но при больших изменениях пропорций могут быть накладки по шрифту.

[_SERGEYX_]

...или использовать свойства
screen.Width
screen.Height

[elda]

как подгонять форму к любому разрешению монитора?

[elda]

чтобы в зависимости от разрешения экрана пользователя форма и все расположенные на ней элементы изменяли свой размер, как это сделать подскажите пожалуйста!!! Заранее спасибо!!!