Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.046 c