Поверх всех окон в системе -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [52.14.121.242]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Поверх всех окон в системе , Неглавное окно приложения

Rouse_

Сообщ. #1 , 09.05.05, 08:59

Moderator

Рейтинг (т): 320

Для того, чтобы неглавное окно приложения располагалось поверх всех окон в системе, нужно "отцепить" его от родительского окна.

procedure TForm2.FormShow(Sender: TObject);

begin

SetWindowLong(Handle, GWL_HWNDPARENT, GetDesktopWindow); // Устанавливаем родителем Desctop

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); // Перемещаем наверх

end;

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0191 ] [ 16 queries used ] [ Generated: 2.05.24, 11:37 GMT ]