Перемещение формы не используя заголовок

← →
nstur (2006-09-05 08:34) [0]

У меня форма без заголовка и бордюра. На ней TImage и еще несколько элементов. Как организовать перемещение формы используя её тело?

← →
balepa © (2006-09-05 08:38) [1]

WM_NCHITTEST

или

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{

if (Button == mbLeft)
{
fX = X;
fY = Y;
_Move = true;
}
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
unsigned long dX, dY;
if (_Move == true)
{
dX = X - fX;
dY = Y - fY;
Form1->Left += dX;
Form1->Top += dY;
}
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
_Move = false;
}
//---------------------------------------------------------------------------

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const DG=$F012; begin if Button=mbLeft then begin ReleaseCapture; Form1.Perform(WM_SYSCOMMAND, DG, 0); end; end;

Перемещение формы не используя заголовок Найти похожие ветки