• Новый бот-ассистент на форуме Codeby

    Теперь на форуме работает ИИ-помощник @bot_cdb — твой технический ассистент по информационной безопасности. Просто упомяни @bot_cdb в любой теме, и получишь быстрый ответ на вопросы по CVE, инструментам, техникам атак и защиты. Бот анализирует весь тред перед ответом, проверяет актуальность данных и может предложить дополнительную помощь. Особенно полезен для проверки технических деталей, поиска документации и быстрых консультаций по пентесту, малвари, форензике и другим областям ИБ.

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

  • Автор темы Автор темы 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