Форум — Ответы     (  К темам )
 ?  AndreyAGSoft: Окна (07-02-2003 10:38:53)
У меня окно без системной рамки. Как его таскать!
 Petro (07-02-2003 17:18:24)
Очевидно, обрабатывать событие WM_MOUSEMOVE с проверкой нажатия левой клавиши мыши.
 Владимир (08-02-2003 11:17:30)
Окно можно таскать за что угодно
Посмотрите пример на этом форуме такой есть
там где спрашивают про окна непрямоугольной формы,
там и есть про это.

Вот нашел

// таскаем форму за форму (вместо формы поместите этот код например
// в TLabel и будете таскать за TLabel и т.д.)

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
const int SC_DRAGMOVE = 0xF012;
if(WindowState!=wsMaximized)
{
ReleaseCapture();
Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
}
}