Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  18:10[Войти] | [Зарегистрироваться]
Ответ на вопрос № 44352

10-08-2006 08:53
Есть форма которая располагается всегда сверху, не модальная, с такими параметрами:

  BorderStyle = bsSizeToolWin;
  FormStyle = fsStayOnTop;
  Owner = Application;
  Parent = nil;


Прошу посильной помощи в следующем, вроде бы простом вопросе. Как сделать так, чтобы она была всегда сверху только для форм своего приложения, т.е. если мы переходим из своей программ в другую (например Explorer не важно) чтобы эта форма не маячила перед глазами.
Подобного эффекта можно добиться перекрыв метод DoShow и вызвав в нем окно с сообщением. (Delphi 5)

procedure TCustomDockFormEx.DoShow;
begin
  inherited;
  MessageBox(0,'Закрой меня','',0);
end;


Но понятное дело это несколько неудобно для пользователя.
Буду крайне благодарен всем откликнувшимся.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

24-12-2010 17:43
Решение проблемы (проверялось только на XP):


procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnDeactivate := AppDeactivate;
end;

procedure TMainForm.AppDeactivate(Sender: TObject);
begin
  if Assigned(OnTopForm) and OnTopForm.Visible then
    ShowWindow(OnTopForm.Handle, SW_SHOWNA);
end;



Использование Application.RestoreTopMosts приводит к тому, что
fsStayOnTop формы перекрывают все окна.

13-09-2006 23:21 | Комментарий к предыдущим ответам
Вообще у меня возникла такая же проблема при переходе на Windows XP SP2, на Win2000Sp4 все работало как надо. При  FormStyle = fsStayOnTop неглавная форма приложения была поверх окон только самого приложения и пряталась при потере фокуса приложением. В Xp ее стало видать всегда....
В чем тут дело?

14-08-2006 03:07 | Сообщение от автора вопроса
Вопрос остался открытым!
Но спасибо за поданную идею. После долгих экспериментов остановился на таком коде

procedure TCustomDockFormEx.AppEventsActivate(Sender: TObject);
begin
  // Когда приложение активизируется, форма располагается "всегда сверху"
  SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOSENDCHANGING);
end;

procedure TCustomDockFormEx.AppEventsDeactivate(Sender: TObject);
begin
  // Когда приложение становится пассивным, форма помещается пож верхнее
  // окно и перестает быть всегда сверху
  SetWindowPos(Handle,GetForegroundWindow,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOSENDCHANGING);
  SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_NOSENDCHANGING);
end;


Однако если в момент когда приложение неактивно отображается окно TOPMOST, то оно может перекрываться обычными окнами других приложений. Как его программно отображать в таком режиме не понятно.

10-08-2006 14:55
Проще всего вообще убирать эту форму с экрана, если ваше приложение стало неактивным,
а когда приложение получит управление - форму опять показывать. Для это надо в форму
добавить компонент ApplicationEvents (закладка Additional в Delphi 7);
в обработчике события OnDeactivate форму прятать (Hide); в обработчике OnActivate -
показывать (Show).

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Жили у бабуси два веселых гуся. Один белый, другой КАКОЙ?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования