Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: 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 вся ветка

Текущий архив: 2003.09.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
14-10963
Омлет
2003-08-16 23:58
2003.09.04
Именинники 17 августа !


14-10958
Soft
2003-08-15 15:58
2003.09.04
SCO: крысы бегут


1-10734
Юлия
2003-08-25 09:36
2003.09.04
Почему выполняются не все команды?


1-10666
saska
2003-08-25 11:32
2003.09.04
Баг дебагера?


3-10647
vita+
2003-08-11 12:04
2003.09.04
Как произвести обмен данными между MDI-окнами