как "ловить мышку" после ответа HTCAPTION на WM_NCHITTEST

[Ruzzz]

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

Делаю так:

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 вызывается только после того как отпустили кнопку мышки

[Лубышев]

Считать координаты мыши

var a:Tpoint;
GetCursorPos(a);

А задать координаты

var a,b:integer;
a:=10;
b:=20;
SetCursorPos(a,b);

[Ruzzz]

т.е. при нажатии запускать таймер?

Меня больше интересует, посылаются ли какие-нибудь сообщения мыши в этот момент окну?

[BOBAH13]

Хук на мыш ставь и не парся.

[JTG]

Сформулируйте задачу точнее, надо за мышью следить, или за положением загадочного TMoveControl? Во втором случае всё просто

procedure WMMOVE(var Message : TMessage); message  WM_MOVE;

procedure WMMOVE(var Message: TMessage);
begin
  Caption := format('X=%d Y=%d',[message.LParamLo, Message.LParamHi]);
end;

[Ruzzz]

Спасибо!!!

Все просто, но как-то не догадался )

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

unit MoveControl;

interface

uses
  SysUtils, Classes, Controls, Messages, WinProcs, Graphics;

type
  TMoveEvent = procedure(Sender: TObject; const X, Y: Integer) of object;
  TPaintEvent = procedure(Sender: TObject; Canvas: TCanvas) of object;

  TMoveControl = class(TCustomControl)
  private
    FOnMove: TMoveEvent;
    FOnPaint: TPaintEvent;
    { Private declarations }
  protected
    { Protected declarations }
    procedure Paint; override;
    procedure WMNCHITTEST(var Message : TMessage); message  WM_NCHITTEST;
    procedure WMMOVE(var Message : TMessage); message WM_MOVE;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    property OnMove: TMoveEvent read FOnMove write FOnMove;
    property OnPaint: TPaintEvent read FOnPaint write FOnPaint;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMoveControl]);
end;

{ TMoveControl }

constructor TMoveControl.Create(AOwner: TComponent);
begin
  inherited;
  Cursor := crSizeNWSE;
end;

procedure TMoveControl.Paint;
begin
  inherited;
  if not (csDesigning in ComponentState) and Assigned(OnPaint) then begin
    FOnPaint(Self, Canvas);
  end else begin
    Canvas.Brush.Style := bsSolid;
    Canvas.Brush.Color := clRed;
    Canvas.Pen.Color := clRed;
    Canvas.FillRect(ClientRect);
  end;
end;

procedure TMoveControl.WMMOVE(var Message: TMessage);
begin
  if Assigned(FOnMove) then begin
    FOnMove(Self, message.LParamLo, Message.LParamHi);
  end;
end;

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

end.