• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

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

  • Автор темы Автор темы Gudzik11
  • Дата начала Дата начала
G

Gudzik11

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

Гуглите fullscreen в делфи
 
На весь экран я разварачиваю так :
Код:
BorderStyle:=bsNone;
WindowState:=wsMaximized;
,
добовляю,к примеру,три memo на форму...
А как добиться того,чтоб при изменении разрешения в windows,моя форма с её содержимым подстроилась под экран монитора ?
 
нашол такой пример
Код:
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
по ширене всё как надо вписываеться а по высоте низ уезжает за приделы экрана почему не пойму
 
В отладчике смотрите как инициализируются свойства и проверяйте с реальными параметрами.
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab