Текущий архив: 2005.07.11;
Скачать: CL | DM;

Вниз

Форма на самом верху   Найти похожие ветки 

← →
alexa   (2005-06-21 12:52) [0]

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

---

← →
TUser ©   (2005-06-21 13:03) [1]

fsStayOnTop

---

← →
alexa   (2005-06-21 13:12) [2]

> fsStayOnTop

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

---

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

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

---

← →
TUser ©   (2005-06-21 13:41) [4]

FormStyle:=fsStayOnTop;

---

← →
Eraser ©   (2005-06-21 14:48) [5]

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;


---

Страницы: 1 вся ветка

Текущий архив: 2005.07.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c