Вопрос и Ответ 16 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Единственная книга по брендингу, которая вам нужна, чтобы начать, раскрутить и сделать бизнес прибыльным

Сильный бренд, запоминающийся логотип и верное позиционирование – важные составляющие любого успешного бизнеса. В этой книге кратко и доходчиво рассказано, что такое бренд, как его создать, добиться узнаваемости в своей товарной категории и превзойти конкурентов. Примеры из практики всемирно известных компаний помогут избежать многих подводных камней на пути от стартапа к империи, а яркие оригинальные рисунки предельно понятно донесут основные идеи авторов, авторитетных специалистов по брендингу.

Основы программирования на JavaScript

Курс посвящен изучению языка программирования JavaScript.

JavaScript является языком сценариев (скриптов), который применяют в основном для создания на Web-страницах интерактивных элементов. Его можно использовать для построения меню, проверки правильности заполнения форм, смены изображений или для чего-то еще, что можно сделать на Web-странице.

Вопрос и Ответ 16

Версия для печати

Вопросы и Ответы

16. Почему не получается создать окно StayOnTop (всегда наверху)?

Создать окно которое всегда будет наверху (не будет перекрываться другими окнами) несложно, для этого достаточно полю FormStyle объекта TForm присвоить значение fsStayOnTop. И это прекрасно работает... до тех пор пока Вам не понадобится несколько раз сделать окно то нормальным, то снова StayOnTop. Если это делать процедурами RestoreTopMosts и NormalizeTopMosts иногда происходит необъяснимое игнорирование второй процедуры и Ваше окно остается навсегда (до завершения) в положении "...наверху".

Для предотвращения подобного стоит пользоваться процедурой API:

procedure SetWindowPos(Wnd: HWnd; WndInsertAfter: HWnd; X, Y, cx, cy: Integer; Flags: Word);

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

Пример:

............

VAR isTopMost: Boolean;

............

procedure TForm1.bTopMostClick(Sender: TObject);
begin

IF isTopMost THEN

{Окно в состояние - всегда наверху}
SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

ELSE

{Окно в нормальное состояние}
SetWindowPos(Application.Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)

isTopMost := NOT isTopMost;

end;

............

...предыдущая страница следующая...
оглавление