Перемещение окна за заголовок

← →
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]

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

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

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