Перетаскивание формы в Kol&MCK

[bulldog5293]

Всем привет. Столкнулся с не ришаемой ситлуацией для себя. Создал форму на Kol&MCK, но как перетаскивать форму не за зоголовок не пойму.
Вариант с

...
public
    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
  { Public declarations }
  end;
....
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;                   { вызов унаследованного обработчика события}
if M.Result = htClient then  { кликнув в области окна?}
M.Result := htCaption;     { если так, то мы заставили Windows думать,}
{ что щелчок был на заголовке окна.}
end;

и

function TForm1.KOLForm1Message(var Msg: tagMSG; 
var Rslt: Integer): Boolean; 
begin 
Result:=Msg.message=WM_NCHITTEST; 
If Result then Rslt:=HTCAPTION; 
end;

Я кидаю в основной unit, но форма остаётся не подвижной. В googl'e находил варианты с mousedoun, mouseup, mousemove не помогают тоже. Мож у кого вариант какой в кладовой завалялся.

[bulldog5293]

Вопрос снят. Нада была в pas файле написать:

procedure TForm1.KOLForm1MouseMove(Sender: PControl;var Mouse: TMouseEventData);
var Pt: TPoint;
    I: Integer;
begin

  GetCursorPos( Pt );
  if not Moving and Mouse_L then
  begin
    if (Abs( Pt.X - Mouse_Pos.X ) > 4) or (Abs( Pt.Y - Mouse_Pos.Y ) > 4) then
    begin
      SetCapture( Form.Handle );
      Moving := TRUE;
    end;
  end;

  if Moving then
  begin
    Form.Left := TopLeft.X + Pt.X - Mouse_Pos.X;
    Form.Top := TopLeft.Y + Pt.Y - Mouse_Pos.Y;
  end;
end;

procedure TForm1.KOLForm1MouseDown(Sender: PControl; var Mouse: TMouseEventData);
begin
  if Mouse.Button = mbLeft then
  begin
    Mouse_L := TRUE;
    TopLeft := MakePoint( Form.Left, Form.Top );
    GetCursorPos( Mouse_Pos );
  end
end;

procedure TForm1.KOLForm1MouseUp(Sender: PControl; var Mouse: TMouseEventData);
begin
  if Mouse_L then
  begin
    Mouse_L := FALSE;
    if Moving then
    begin
      ReleaseCapture;
      Moving := FALSE;
      Exit;
    end;
  end;
end;

а в inc файле

  Result.Form.OnMouseDown := Result.KOLForm1MouseDown;
  Result.Form.OnMouseUp := Result.KOLForm1MouseUp;
  Result.Form.OnMouseMove := Result.KOLForm1MouseMove;

Мож пригодится кому