Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как обеспечить чтобы окно было повнрх всех!

Jiurasrasr © (2004-08-22 13:54:00)
Доброе время суток!
Я запускаю из своейпрограммы другое приложение (Microsoft Excel) - как сделать так, чтобы после запуска другого приложеня окно из моей программы находилось сверху него. Т.е. чтобы я мог работать в другом приложении а маленькое окошко висит сверху

SergP (2004-08-22 19:45:00) [1]

> [2] Юрий Зотов © (22.08.04 15:22)
> > ssk © (22.08.04 14:18) [1]
> Это сработает на один раз. А далее?
>
> > Jiurasrasr (22.08.04 13:54)
> Разве FormStyle=fsStayOnTop уже отменили?

Только при изменении FormStyle в процессе работы программы иногда возникают неприятные глюки, связанные с неправильным отображением окна...

Юрий Зотов (2004-08-22 19:37:00) [2]
> ssk © (22.08.04 14:18) [1]

Вы правы. Почему-то я думал, что SetWindowPos - это одноразовая акция, а далее надо обрабатывать WM_WINDOWPOSCHANGING и ставить SWP_NOZORDER. Спасибо. Век живи - век учись... :о)

Посмотрел в исходники VCL - такой же вызов SetWindowPos стоит в TCustomForm.CreateWnd при fsStayOnTop. Значит, проще выставить это свойство в Object Inspector.

TUser (2004-08-22 19:05:00) [3]
SetForegroundWindow(Handle) после CreateProcess/ShellExecute

DVM (2004-08-22 18:54:00) [4]

> Запускаю блокнот по нажатию кнопки, а закрываю как обычно.
> Форма постоянно находится поверх всех остальных окон.

До тех пор, пока не найдется другое такое же "умное окно". Или хотя бы вторая копия той же программы. Чтобы удерживать окно наверху (более или менее) надо еще fsStayOnTop или самому написать соотв обработчик WM_WINDOWPOSCHANGING

ssk (2004-08-22 15:45:00) [5]
>Юрий Зотов © (22.08.04 15:22) [2]
> ssk © (22.08.04 14:18) [1]
Это сработает на один раз. А далее?

А что значит один раз? Если не сложно, объясните пожалуйста.
Вот только что проверил: поместил этот код [1] в OnCreate формы, а в обработчик кнопки поместил ShellExecute() с запуском блокнота. Запускаю блокнот по нажатию кнопки, а закрываю как обычно. Форма постоянно находится поверх всех остальных окон.

Юрий Зотов (2004-08-22 15:22:00) [6]
> ssk © (22.08.04 14:18) [1]
Это сработает на один раз. А далее?

> Jiurasrasr (22.08.04 13:54)
Разве FormStyle=fsStayOnTop уже отменили?

ssk (2004-08-22 14:18:00) [7]
попробуй так:

SetWindowPos( MainForm.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »