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

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

Окно


Goorus ©   (2004-08-11 06:56:00) 

Как сдедать, чтобы окно всегда было снизу, тоесть обратное StayOnTop. Пишу на WinAPI, поэтому у онка нет функции SendToBack, а аналогичной, типа WM_SENDTOBACK, я не нашёл.


Goorus   (2004-08-11 12:19:00) [1]

Пасибо :)


inic   (2004-08-11 10:57:00) [2]

Попробуй, это снесет тебе башню:)

 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WMWindowPosChanging (var Msg: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING;
 public
   { Public declarations }
 end;

// ...

procedure TForm1.WMWindowPosChanging (var Msg: TWMWindowPosChanging);
begin
   Msg.WindowPos.hwndInsertAfter:= HWND_BOTTOM;
   Msg.WindowPos.flags:= Msg.WindowPos.flags and (not SWP_NOZORDER);
   inherited;
end;


Если я правильно понял, то это именно то, что ты хотел,
а также попробуй убирать другие флаги SWP_.


inic   (2004-08-11 10:57:00) [3]

Я забыл, что нахожусь в WinAPI, но как переделать в чистое WINAPI я думаю понятно


Наверх

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