Объясните пожалуйста, почему функция не работает должным образом? вроде должно брать

Question

Объясните пожалуйста, почему функция не работает должным образом? вроде должно брать

активное окно сравнивать его размер с размером экрана, и если есть совпадение = true
проверял браузером в полноэкранном режиме
function isFullScreen: Boolean;
var
h: hWnd;
Rect: TRect;
X, Y: Integer;
begin
h := GetForegroundWindow;
X := Screen.Width;
Y := Screen.Height;
if h <> 0 then
begin
if GetWindowRect(h, Rect) then
begin
if (X >= Rect.right - Rect.left) and (Y >= Rect.bottom - Rect.top) then
Result := True
else
Result := false
end
else
Result := false;
end;
Result := false;
end;

#lazarus #programming #russian

0

вчера 22:23

9 ответов

5 просмотров

Handatros

Стикер

0

4 часа назад

JF Автор вопроса

почему?

0

4 часа назад

Handatros

JF
почему?

потому что в конце функции результат присваивается False :)

0

4 часа назад

JF Автор вопроса

Handatros
потому что в конце функции результат присваивается...

🤣спс

0

4 часа назад

JF Автор вопроса

Handatros
потому что в конце функции результат присваивается...

исправил, в конце добавил else end else Result := false; теперь когда тыкаю на рабочий стол - выдает true

0

4 часа назад

Alex

там еще мультимониторность бы учитывать, в общем, лучше у чатагпт спроси. он и пример напишет и объяснит каждую строку

0

4 часа назад

Iluha Companets

JF
исправил, в конце добавил else end else Result :...

компилер разве не предупреждает о неопределённости Result? ваш исходный код надо было просто поправить - False первой строкой, и далее только проверять условие доя True

0

1 час назад

Iluha Companets

Alex
там еще мультимониторность бы учитывать, в общем, ...

Стикер

0

1 час назад

Sergey Bodrov · Accepted Answer

Sergey Bodrov

Это вы спрашивайте у робота, который вам код написал =)

0

4 часа назад

169 похожих чатов

Объясните пожалуйста, почему функция не работает должным образом? вроде должно брать

9 ответов

Похожие вопросы