Форум: "KOL";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
ВнизКак перемещать форму без заголовка? Найти похожие ветки
← →
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 вся ветка
Форум: "KOL";
Текущий архив: 2003.09.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.178 c