Форма Под Разрешение Экрана

Тема в разделе "Pascal and Delphi", создана пользователем Gudzik11, 21 мар 2012.

  1. Gudzik11

    Gudzik11 New Member

    Регистрация:
    30 ноя 2011
    Сообщения:
    1
    Симпатии:
    0
    Здравствуйте!Помогите,пожалуйста!
    Мне нужно создать форму которая раскрывалась бы во весь экран,и перекрывала панель"Пуск". После этого на неё поместить несколько компонентов так,чтоб при запуске моего проекта на другом мониторе,с другим разрешением,всё выглядело так как и на моём.
     
  2. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Гуглите fullscreen в делфи
     
  3. Gudzik11

    Gudzik11 New Member

    Регистрация:
    30 ноя 2011
    Сообщения:
    1
    Симпатии:
    0
    На весь экран я разварачиваю так :
    Код (Delphi):
    BorderStyle:=bsNone;
    WindowState:=wsMaximized;
    ,
    добовляю,к примеру,три memo на форму...
    А как добиться того,чтоб при изменении разрешения в windows,моя форма с её содержимым подстроилась под экран монитора ?
     
  4. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    используйте Anchors, Align и т.п.
     
  5. Gudzik11

    Gudzik11 New Member

    Регистрация:
    30 ноя 2011
    Сообщения:
    1
    Симпатии:
    0
    нашол такой пример
    Код (Delphi):
    const
    ScreenWidth: Integer = 826;
    ScreenHeight: Integer = 476;
    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.FormCreate(Sender: TObject);
    var
    x, y: LongInt;
    begin
    form1.Align:=alclient;
    scaled := true;
    x := getSystemMetrics(SM_CXSCREEN);
    y := getSystemMetrics(SM_CYSCREEN);
    if (x <> ScreenHeight) or (y <> ScreenWidth) then
    begin
    form1.height := form1.height * x div ScreenWidth;
    form1.width := form1.width * y div ScreenHeight;
    end;
    if x <> ScreenWidth then
    scaleBy(x, ScreenWidth);
    end;end
    по ширене всё как надо вписываеться а по высоте низ уезжает за приделы экрана почему не пойму
     
  6. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    В отладчике смотрите как инициализируются свойства и проверяйте с реальными параметрами.
     
  7. Gudzik11

    Gudzik11 New Member

    Регистрация:
    30 ноя 2011
    Сообщения:
    1
    Симпатии:
    0
    Как смотреть? Я этого ещё не знаю .
     
Загрузка...

Поделиться этой страницей