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

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

Неподвижная форма

zumm ©   (2007-03-09 09:55:00) 

Уважаемые, Мастера.
Подскажите как сделать так чтобы
нельзя было форму перемешать
за заголовок.
Заранее благодарен.

---

sniknik   (2007-03-09 15:11:00) [1]

> но кнопки закрыть, свернуть, развернуть не работают
> (ненажимаются)

const
 SC_DRAGMOVE = $F012;
...
 private
   procedure CMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
...
procedure TForm1.CMSysCommand(var Message: TMessage);
begin
 if Message.WParam <> SC_DRAGMOVE then inherited;
end;


---

zumm   (2007-03-09 13:37:00) [2]

> Calibr ©   (09.03.07 13:15) [3]
>
> Я бы так сделал:
>


Да так оно работает
но кнопки закрыть, свернуть, развернуть не работают
(ненажимаются)

---

Calibr   (2007-03-09 13:15:00) [3]

Я бы так сделал:

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

...

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
 Message.Result := HTCLIENT;
end;


---

tesseract   (2007-03-09 13:10:00) [4]

Я бы заголовок просто убрал.

---

Ega23   (2007-03-09 10:54:00) [5]

Я бы перехватывал все WM_NCL... , идущие данному окну.

---

Наверх