Новые книги
 Эта книга научит вас правильно, а главное – эффективно общаться с людьми в письменной форме. Воспользуйтесь рекомендациями авторов и вы удивитесь, насколько успешной станет ваша деловая и личная переписка. |
 Эта книга содержит рекомендации и методы, основанные на научных исследованиях, экспериментах, опросах потребителей и статистики. Автор использует знания из математики, социальной психологии, меметики и других наук и объясняет, почему и, что еще важнее, каким образом следует адаптировать для достижения максимальных результатов свои стратегии интернет-маркетинга: ведение блога, присутствие в соцсетях, почтовый маркетинг и вебинары.На русском языке публикуется впервые. |
Вопрос и Ответ 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); IF
isTopMost THEN {Окно
в состояние - всегда наверху} ELSE {Окно
в нормальное состояние} isTopMost
:= NOT isTopMost; end; ............
begin
SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOSIZE Or SWP_NOMOVE)
SetWindowPos(Application.Handle, HWND_NOTOPMOST, 0, 0, 0,
0, SWP_NOSIZE Or SWP_NOMOVE)
...предыдущая страница следующая...
оглавление