Перемещение формы при BorderStyle=bsNone

@KoFeMaH · Регистрация: 21.02.2009

Author24 — интернет-сервис помощи студентам

Ув.программисты,возникла проблемма с перемещением формы при BorderStyle=bsNone.Как можно сделать чтобы при нажатии мышкой в любое место формы она перещалась так как будто мы перемещаем ее с BorderStyle=bsSizeable.

Vourhey · 07.05.2009, 00:59

Когда кнопка нажата, запоминаем координаты, когда mouse move, соответственно, отсчитываем смещение от запомненных координат и смещаем главную форму на такое же расстояние.

@Monte-Cristo · 07.05.2009, 01:06

на билдере даже не знаю как...на Дельфи выглядело примерно так:

Delphi

type
  TForm1 = class(TForm)
  private
  { Private Declaration }
  procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;
  public
  { Public Declaration}
  end;
 
{ . . . }
 
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest)
begin
inherited;
if M.Result = htClient then M.Result := htCaption;
end;

Vourhey · 07.05.2009, 01:16

Monte-Cristo, это самый простой вариант и некрасивый, так как, теперь любое взаимодействие с формой будет как с кэпшном. Щелкни-ка на ней два раза. Развернулась? Ну вот...а я только перетаскивание хотел...

@KoFeMaH · 07.05.2009, 06:45 **[ТС]**

Сообщение от Vourhey

Когда кнопка нажата, запоминаем координаты, когда mouse move, соответственно, отсчитываем смещение от запомненных координат и смещаем главную форму на такое же расстояние.

я с мышкой раньше не работал.если что то не привильно подскажите пожалуйста.получил вот такой код:

C++

void __fastcall TClock::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
Clock->Left=X;
Clock->Top=Y;
stop=1;
}
//---------------------------------------------------------------------------
 
void __fastcall TClock::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (stop==1){
Clock->Left=X;
Clock->Top=Y;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TClock::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
stop=0;
}
//---------------------------------------------------------------------------

Clock- это имя формы,stop использую для остановки перемещения.

@Monte-Cristo · 07.05.2009, 09:58

Vourhey, я знаю.... я лишь показал вариант. в своих же проектах я реализовывал так, как посоветовали вы.

AntonChik · 07.05.2009, 11:08

Как таскать форму не за заголовок?

В событие OnMouseDown формы и компонентов, которыми мы собираемся таскать, помещаем код:

Код

if(Button == mbLeft)
        {
        long SC_DRAGMOVE = 0xF012;
        ReleaseCapture();
        SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
        }

@KoFeMaH · 08.05.2009, 07:51 **[ТС]**

я нашел такой код.все работает.выкладываю если кому нибудь понадобиться.

C++

void __fastcall TClock::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
GetCursorPos(&MousePnt);
dragging = true;
SetCapture(hWnd);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TClock::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if (dragging==true) // Если нажата кнопка, то...
        {
            // Получить текущую позицию курсора
            GetCursorPos(&point);
            // Откорректировать положение окна
            Clock->Left = Clock->Left+(point.x - MousePnt.x);
            Clock->Top  = Clock->Top +(point.y - MousePnt.y);
 
            // Установить новые размеры окна
            //SetWindowPos(hWnd, NULL, wndrect.left, wndrect.top, 0, 0, SWP_NOZORDER | SWP_NOSIZE);
            
            // Запоминаем текущую позицию курсора
            MousePnt=point;
        }
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TClock::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
if (dragging==true)
        {
            dragging=false;
            ReleaseCapture();
        }
 
}

еще нужно инициализировать переменные

C++

//перемещение формы
bool dragging = false;
POINT MousePnt;
POINT point;
HWND hWnd;
RECT wndrect;

@DanUnited · 08.05.2009, 14:53

более рационально использовать тот метод, как показал
AntonChik. Просто в FAQ почаще надо заглядывать, где двадцатью способами это реализовано....

@[XandeR] · 08.05.2009, 22:42

не ломай голову вот самый простой способ: в событие OnMouseDown прописываешь

C++

1 2	ReleaseCapture(); SendMessage(Form1->Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);

@KoFeMaH 38 / 24 / 4 Регистрация: 21.02.2009 Сообщений: 249
		1
	Перемещение формы при BorderStyle=bsNone 07.05.2009, 00:45. Показов 9674. Ответов 9 Метки нет (Все метки) Ув.программисты,возникла проблемма с перемещением формы при BorderStyle=bsNone.Как можно сделать чтобы при нажатии мышкой в любое место формы она перещалась так как будто мы перемещаем ее с BorderStyle=bsSizeable. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	07.05.2009, 00:59	2
	Когда кнопка нажата, запоминаем координаты, когда mouse move, соответственно, отсчитываем смещение от запомненных координат и смещаем главную форму на такое же расстояние. 0

Vourhey Почетный модератор 7393 / 2639 / 281 Регистрация: 29.07.2006 Сообщений: 13,696
	07.05.2009, 01:16	4
	Monte-Cristo, это самый простой вариант и некрасивый, так как, теперь любое взаимодействие с формой будет как с кэпшном. Щелкни-ка на ней два раза. Развернулась? Ну вот...а я только перетаскивание хотел... 0

@Monte-Cristo 2816 / 1407 / 107 Регистрация: 07.03.2009 Сообщений: 4,446
	07.05.2009, 09:58	6
	Vourhey, я знаю.... я лишь показал вариант. в своих же проектах я реализовывал так, как посоветовали вы. 0

AntonChik 1090 / 588 / 121 Регистрация: 11.11.2008 Сообщений: 1,544
	07.05.2009, 11:08	7
	Как таскать форму не за заголовок? В событие OnMouseDown формы и компонентов, которыми мы собираемся таскать, помещаем код: Код if(Button == mbLeft) { long SC_DRAGMOVE = 0xF012; ReleaseCapture(); SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); } 2

@DanUnited Программист TH 292 / 147 / 12 Регистрация: 06.01.2009 Сообщений: 537
	08.05.2009, 14:53	9
	более рационально использовать тот метод, как показал AntonChik. Просто в FAQ почаще надо заглядывать, где двадцатью способами это реализовано.... 0

	08.05.2009, 22:42

Перемещение формы при BorderStyle=bsNone

Решение