Скачать: CL | DM;

Как перемещать форму без заголовка?   Найти похожие ветки 

← →
Microlab   (2002-12-21 20:23) [0]

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

---

← →
tamerlan311 ©   (2002-12-22 09:40) [1]

//+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// +
// Позволяет таскать за форму +
// ( 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

---

← →
tamerlan311 ©   (2002-12-22 09:41) [2]

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

---

← →
Centronix   (2002-12-25 21:55) [3]

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

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


---

← →
Gandalf   (2002-12-29 18:58) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c