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

смена состояния always on top на лету...   Найти похожие ветки 

← →
Makhanev Alexander   (2006-12-11 18:58) [0]

Трививальная задача "сделать окно поверх всех окон в винде" решается через CreateParams. Но как быть если это состояние (поверъ\не поверх) хочется менять на лету?

---

← →
umbra ©   (2006-12-11 19:19) [1]

SetWindowLong ?

---

← →
Palladin ©   (2006-12-11 19:38) [2]

я может и счастливый обладатель d6, но в нем свойство formstyle прекрасно работает. в связи с этим сильно сомневаюсь что оно не работает в d7

---

← →
Чапаев ©   (2006-12-11 20:57) [3]

> [0] Makhanev Alexander   (11.12.06 18:58)
SetWindowPos()

---

← →
AndreyRu   (2006-12-12 00:42) [4]

var
 flTop : boolean = false;

...
...
//---------------------------------------------------------------------
.......Button1Click(Sender : TObject);
begin
 if flTop then
   flTop := false
 else
   flTop := true;
end;
//---------------------------------------------------------------------
.......FormShow(Sender : TObject);
begin
 if flTop then
   SetWindowPos(Handle,
                       HWND_TOPMOST,
                       Left,
                       Top,
                       Width,
                       Height,
                       SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
//---------------------------------------------------------------------
.......FormActivate(Sender : TObject);
begin
 if flTop then
   SetWindowPos(Handle,
                       HWND_TOPMOST,
                       Left,
                       Top,
                       Width,
                       Height,
                       SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
//---------------------------------------------------------------------
.......FormDeactivate(Sender : TObject);
begin
 if flTop then
   SetWindowPos(Handle,
                       HWND_TOPMOST,
                       Left,
                       Top,
                       Width,
                       Height,
                       SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
//---------------------------------------------------------------------

---

← →
Anatoly Podgoretsky ©   (2006-12-12 00:45) [5]

> AndreyRu  (12.12.2006 0:42:04)  [4]

begin
  if flTop then
    flTop := false
  else
    flTop := true;
end;

Как это глаз режет

flTop := not flTop;

---

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

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



Память: 0.46 MB
Время: 0.029 c