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

Перемещение окна за заголовок   Найти похожие ветки 

← →
France   (2002-09-25 09:46) [0]

Приветствую Всех! Подскажите, может это было где-то. Можно ли запретить перетаскивание окна за заголовок?

---

← →
Separator ©   (2002-09-25 09:55) [1]

Убери заголовок, а потом нарисуй свой

---

← →
France   (2002-09-25 09:57) [2]

Это не подходит

---

← →
qube ©   (2002-09-25 10:02) [3]

procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = htcaption then
Msg.Result := HTCLIENT;
end;

---

← →
qube ©   (2002-09-25 10:04) [4]

Да, конечно, объявить надо
TForm1 = class
....
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;

---

← →
France   (2002-09-25 10:08) [5]

Спасибо, сейчас попробую.

---

← →
тоже в тему   (2002-09-25 10:10) [6]

Если я убрал из формы заголовок, обрабатываю WM_NCHITTEST пока на форме ничего нет все замечательно. Если я на нее положу скажем TBavel то таскать за этот Bavel уже не получится. Мне придется наследоваться от TBavel для этой цели ?

---

← →
France   (2002-09-25 10:14) [7]

> qube © (25.09.02 10:04)
Все работает!

---

← →
тоже в тему   (2002-09-25 10:15) [8]

Sorry, уже разобрался (TApplicationEvents)

---

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

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



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