Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Непонятная проблема с окнами [D7, WinXP]


Naumov ©   (2005-05-05 06:28:00) 

Несколько окон в проекте у всех стоит свойство
FormStyle = ...OnTop, при выполнении программы изначально идет все как надо окно находится поверх остальных, нажимаешь на кнопку при вызове другого окна оно тоже вылазит поверх остальных, но при каких-то не понятных условиях вдруг вызываемое окно находится ниже, что такое незнаю, проверяю свойтво FormStyle все как надо, помогите спасите.


Antonn   (2005-05-05 06:53:00) [1]

protected
   procedure WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);
   message WM_WINDOWPOSCHANGING;

procedure TMainForm.WMWINDOWPOSCHANGING(var Msg: TWMWINDOWPOSCHANGING);
var
 rWorkArea: TRect;
 StickAt : Word;
 Docked: Boolean;
begin
    SetWindowPos(Handle,HWND_TOPmost,Left,Top,Width,Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE );  // or SWP_NOMOVE or SWP_NOSIZE

 inherited;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо