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

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

Форма на самом верху [D7, WinXP]

alexa ©   (2005-06-21 12:52:00) 

Как вывести одну из форм поверх всех приложений, которые в данный момент загружены?

---

Eraser   (2005-06-21 14:48:00) [1]

alexa   (21.06.05 12:52)

private
   { Private declarations }
   procedure CreateParams(var Params: TCreateParams); override;
...
procedure TfmVoiceStatus.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.WndParent := GetDesktopWindow;
 Params.ExStyle := Params.ExStyle and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW;
end;

procedure TfmVoiceStatus.FormCreate(Sender: TObject);
var
 dwStyle: integer;
begin
 dwStyle := GetWindowLong(self.Handle, GWL_EXSTYLE);
 SetWindowLong(self.Handle, GWL_EXSTYLE, dwStyle or WS_EX_TOPMOST);
end;


---

TUser   (2005-06-21 13:41:00) [2]

FormStyle:=fsStayOnTop;

---

alexa   (2005-06-21 13:38:00) [3]

Помогите, мне очень нужно

---

alexa   (2005-06-21 13:12:00) [4]

> fsStayOnTop

А что это вообще такое и куда это писать надо?

---

TUser   (2005-06-21 13:03:00) [5]

fsStayOnTop

---

Наверх