Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Вниз
Как сделать так чтобы форма была поверх всех остальных окон. Найти похожие ветки
← →
vegarulez © (2006-10-03 07:42) [0]Добрый день мастерам!
Запускаю программу, и хочу чтобы она была выше всех окон виндовых как это сделать?
Типа чтоб bringtofont была...
← →
SerJaNT © (2006-10-03 07:54) [1]FormStyle:=fsStayOnTop
← →
orinoko (2006-10-03 11:26) [2]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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.041 c
