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

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

Запрет перемещения формы..

Страницы:   < 1 2 >

AlexDan ©   (2008-09-26 22:35:00) 

private
 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
  {...}

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  inherited;

  with Message do
  begin
    if Result = HTCAPTION then
      Result := HTNOWHERE;
  end;
end;
Судя по форумам у всех работает, а у меня пишет:
Result := HTNOWHERE; - [Error] Unit1.pas(39): Incompatible types: 'Integer' and 'THitTest'
С чего это..?((

---

AlexDan   (2008-09-26 22:40:00) [21]

Нет, то что ты написал, работает, спасибо..

---

{RASkov}   (2008-09-26 22:40:00) [22]

> [0] AlexDan ©   (26.09.08 22:35)
> Result := HTNOWHERE; - [Error] Unit1.pas(39): Incompatible types: 'Integer' and 'THitTest'

Что-то ты напутал как обычно...) Сейчас опять закроют ветку :)

---

AlexDan   (2008-09-26 22:38:00) [23]

Удалено модератором

---

{RASkov}   (2008-09-26 22:37:00) [24]

> [0] AlexDan ©   (26.09.08 22:35)

Вот так попробуй
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
 Inherited;
 if Message.Result=HTCAPTION then Message.Result:=HTCLIENT;
end;
Только перемещать такую форму можно ...с клавиатуры :)

---

Страницы:   < 1 2 >

Наверх