| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать так чтобы форма была поверх всех остальных окон.
vegarulez © (2006-10-03 07:42:00)Добрый день мастерам!
Запускаю программу, и хочу чтобы она была выше всех окон виндовых как это сделать?
Типа чтоб bringtofont была...
orinoko (2006-10-03 11:26:00) [1]FormStyle:=fsStayOnTop - недостаточно
А так получается окно всегда поверх ВСЕХ виндовых окон
type TForm1 = class(TForm)
....
....
protected
procedure CreateParams(var Params: TCreateParams); override; public;
...........................................
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent:=GetDesktopWindow;
Params.ExStyle:=Params.ExStyle or WS_EX_TOPMOST;
end;
SerJaNT (2006-10-03 07:54:00) [2]FormStyle:=fsStayOnTop
| |
