• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Form

  • Автор темы Leos
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

Leos

Как сделать, что бы форма была всегда поверх другой и при этом всё время была активна (выделена), но не модальна.
Например как панель инструментов в photodhop'e?
 
G

Guest

Leos
чтобы была поверх - надо установить onTop.
 
B

Barmutik

Выставь у формы fsStayOnTop...

Но этого может оказаться мало ...

Если будет мало докинь вопрос я код запощу который гарантирует что форма всегда будет видна сверху.
 
A

admin

Leos
можно через WinAPI
Код:
 // Окно поверъ других
procedure OnTop(Form: Thandle; const ShowOnTop: Boolean);
var
Where: HWnd;
begin
if ShowOnTop then begin
 Where := HWND_TOPMOST;
//  windows.SetParent(form, HWND_Desktop);
end
else
 Where := HWND_NOTOPMOST;
SetWindowPos(Form, Where, 0, 0, 0, 0,
 SWP_NOACTIVATE or SWP_NOMOVE or
 SWP_NOSIZE or SWP_NOSENDCHANGING);
 BringWindowToTop(Where);
end;

Юзай наздоровье :)
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!