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

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

Как перемещать форму без заголовка?

Microlab ©   (2002-12-21 20:23:00) 

Есть форма form.HasCaption:=false;
Вместо заголовка своя панель с нужными кнопками (наподобе WinAmp). Нужно перетаскивать форму мышью за панель.

---

Gandalf   (2002-12-29 18:58:00) [1]

Порыскай по этому форуму как-то обсуждалось подробней. В любом случаи вопрос скорее в WinAPI.

---

Centronix   (2002-12-25 21:55:00) [2]

Есть и альтернативный вариант

function TForm1.KOLForm1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
Result:=Msg.message=WM_NCHITTEST;
If Result then Rslt:=HTCAPTION;
end;


---

tamerlan311   (2002-12-22 09:41:00) [3]

но если нужно таскать и за кнопки , то на кнопках нужно писать примерно то же!

---

tamerlan311   (2002-12-22 09:40:00) [4]

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// +
// Позволяет таскать за форму +
// ( var Msg: tagMSG;
var Rslt: Integer)

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// +
// Позволяет таскать за форму +
// +
//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
function TForm1.KOLForm1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
begin
if Msg.message = WM_LButtonDown then form.Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.lParam);//это позволяет
этот код как понимаете ставиться в обработчик события формы, onmesssage

---

Наверх