Как сделать так чтобы форма была поверх всех остальных окон.

← →
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;

Как сделать так чтобы форма была поверх всех остальных окон. Найти похожие ветки