Оптимизация окна программы

[mauar]

Люди, дайте совет плиз :
Программа написанна на дельфи 7, при изменении режима экрана у программы сьезжают окна, кнопки и другие компоненты размещенные на форме, как оптимизировать окна программы под разные разрешения экрана, сворачивания программы или при изменении размера окна?

[MSeryoga]

Тут был похожий вопрос

[hack]

Сейчас минимальное разрешение экрана по моему у всех не ниже 800х600 - вот из этого и исходи - поставь в свойствах формы MinWidch и MinHeight чуть меньше - 700х500 и разверни на весь экран (свойство формы Align := alClient), якорями (Anchors) привяжи элементы к форме при минимальном размере. Можно попробовать использовать компонент JvFormAutoSize и комплекта JVCL. Можно несколько элементов положить на панель и контролировать её положение.

[tFeniks]

Пользуйся

unit scale;

interface

uses
  Forms, WinTypes, WinProcs, SysUtils;

procedure ScaleForm(Sender: TObject);

implementation

procedure ScaleForm(Sender: TObject);

const

  {измените это так, чтобы это соответствовало
  режиму разрешения во время разработки}
  DesignScrY: LongInt = 768;
  DesignScrX: LongInt = 1024;
  DesignBorder: LongInt = 4; {значение в Панели Управления + 1}

var

  SystemScrY: LongInt;
  SystemScrX: LongInt;
  SystemBorder: LongInt;
  OldHeight: LongInt;
  OldWidth: LongInt;

begin

  SystemScrY := GetSystemMetrics(SM_CYSCREEN);
  SystemScrX := GetSystemMetrics(SM_CXSCREEN);
  SystemBorder := GetSystemMetrics(SM_CYFRAME);
  with Sender as TForm do
  begin
    Scaled := True;
    AutoScroll := False;
    Top := Top * SystemScrX div DesignScrX;
    Left := Left * SystemScrX div DesignScrX;
    OldHeight := Height + (DesignBorder - SystemBorder) * 2;
    OldWidth := Width + (DesignBorder - SystemBorder) * 2;
    ScaleBy((OldWidth * SystemScrX div DesignScrX - SystemBorder * 2),
      (OldWidth - DesignBorder * 2));
    {
    Для форм не имеющих границ измените предшествующие
    три строки следующим способом:

    OldHeight := Height;
    OldWidth  := Width;
    ScaleBy(SystemScrX, DesignScrX);
    }

    Height := OldHeight * SystemScrY div DesignScrY;
    Width := OldWidth * SystemScrX div DesignScrX;
  end;
end;

begin
end.

[neonman]

По-моему здесь речь идет про свойсто Anchors. Оно задает привязки элементов.

[Санек_Булдыг]

Цитата: Сообщение от neonman По-моему здесь речь идет про свойсто Anchors. Оно задает привязки элементов.

Согласен эта проблема проще всего так и решается.