• Registered: 2017-03-17
  • Posts: 109

Topic: Разрешение экрана

Здравствуйте! Как можно уловить разрешение экрана и прописать координаты для формы? Например если разрешение экрана 1920х1080 то форма при открытии будет на одном месте, если разрешение будет 1280х1024 то форма будет на другом месте на экране?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Разрешение экрана

Приветствую.


Установите для формы свойство Position = poDesigned
затем можете использовать данный скрипт


procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    if Screen.Width = 1920 then Form1.Left := 0
    else if Screen.Width = 1280 then Form1.Left := 100;
end;
Dmitry.
  • Registered: 2017-03-17
  • Posts: 109

Re: Разрешение экрана

DriveSoft wrote:

Приветствую.


Установите для формы свойство Position = poDesigned
затем можете использовать данный скрипт


procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    if Screen.Width = 1920 then Form1.Left := 0
    else if Screen.Width = 1280 then Form1.Left := 100;
end;

Спасибо