смена состояния 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;
//---------------------------------------------------------------------

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

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

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

flTop := not flTop;

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