Перемещение окна, не имеющего заголовка
Не подскажет ли кто,
как реализовать перемещение окна
с помощью мыши "хватая" его за клиентскую
область (или за ее участок).
как реализовать перемещение окна
с помощью мыши "хватая" его за клиентскую
область (или за ее участок).
Аноним
Цитата:
On 2002-01-11 1703, whum wrote
Не подскажет ли кто,
как реализовать перемещение окна
с помощью мыши "хватая" его за клиентскую
область (или за ее участок).
void __fastcall TForm1FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if (Button == mbLeft)
{
ReleaseCapture();
SNDMSG(Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
}
}