VPF::ловить мышь после ответа HTCAPTION на WM_NCHITTEST

Ruzzz

Дата 14.10.2008, 02:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 8.3.2008

Репутация: нет
Всего: 1

нужно следить за мышкой, пока не отпущена кнопка мыши! Как это сделать?

Делаю так:

Код


procedure WMNCHITTEST(var Message : TMessage); message  WM_NCHITTEST;

...

procedure TMoveControl.WMNCHITTEST(var Message: TMessage);
begin
 if not (csDesigning in ComponentState) then begin
   Message.Result := HTCAPTION;
   if Assigned(FOnMove) then begin
     FOnMove(Self);
   end;
 end else
   Message.Result := HTCLIENT;
end;

но OnMove вызывается только после того как отпустили кнопку мышки :(

еще есть способ:

Код

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture;
    TControl(Sender).Perform(WM_SYSCOMMAND, $F008 , 0); // $F012
  end;
end;

но в этом случае также никаких сообщений мышки не посылается покуа не отпустить кнопку мыши (точнее сказать не работатют OnMouseMove и OnResize)

-

вообще задача: нужно двигать контрал по форме и при этом постоянно полусчать его новые координаты

Ruzzz

Дата 15.10.2008, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 8.3.2008

Репутация: нет
Всего: 1

Разобрался smile

сглупил и забыл про procedure WMMOVE(var Message : TMessage); message WM_MOVE;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »