Форма поверх всех других приложений

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Мне необходимо поместить Delphi-форму ДЕЙСТВИТЕЛЬНО поверх других приложений, не просто поверх всех форм приложения (что просто), а постоянно, даже если я использую, к примеру, EXCEL.

Попробуй использовать Windows API функцию SetWindowPos(). Примерно так…

with MyForm do

SetWindowPos(Handle,

HWND_TOPMOST,

Left,

Top,

Width,

Height,

SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Возможно вам понадобиться вызывать данную функцию в обработчиках события OnShow(), OnDeactivate(), и OnActivate() вашей формы.

{/codecitation}

Добавить комментарий