Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перемещение окна за заголовок [D5, Win95/98]


France ©   (2002-09-25 09:46:00) 

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


тоже в тему   (2002-09-25 10:15:00) [1]

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


France   (2002-09-25 10:14:00) [2]

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


тоже в тему   (2002-09-25 10:10:00) [3]

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


France   (2002-09-25 10:08:00) [4]

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


qube   (2002-09-25 10:04:00) [5]

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


qube   (2002-09-25 10:02:00) [6]

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


France   (2002-09-25 09:57:00) [7]

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


Separator   (2002-09-25 09:55:00) [8]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо