Form

  • Автор темы Leos
  • Дата начала
Статус
Закрыто для дальнейших ответов.
L

Leos

#1
Как сделать, что бы форма была всегда поверх другой и при этом всё время была активна (выделена), но не модальна.
Например как панель инструментов в photodhop'e?
 
B

Barmutik

#3
Выставь у формы fsStayOnTop...

Но этого может оказаться мало ...

Если будет мало докинь вопрос я код запощу который гарантирует что форма всегда будет видна сверху.
 

admin

Well-known member
08.08.2003
2 754
0
#4
Leos
можно через WinAPI
Код:
 // Окно поверъ других
procedure OnTop(Form: Thandle; const ShowOnTop: Boolean);
var
Where: HWnd;
begin
if ShowOnTop then begin
 Where := HWND_TOPMOST;
//  windows.SetParent(form, HWND_Desktop);
end
else
 Where := HWND_NOTOPMOST;
SetWindowPos(Form, Where, 0, 0, 0, 0,
 SWP_NOACTIVATE or SWP_NOMOVE or
 SWP_NOSIZE or SWP_NOSENDCHANGING);
 BringWindowToTop(Where);
end;
Юзай наздоровье :)
 
Статус
Закрыто для дальнейших ответов.