Перемещаем панель по форме мышью

[chandrasecar]

Здравствуйте.
На форме есть панель, которую можно перемещать мышью по форме. Код такой:

procedure TForm1.Panel1MouseDoun(Sender: TObject; Button: TMouseDoun; Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
   ReleaseCapture;
   Panel1.Perform(WM_SysCommand,SC_DragMove,0);
end;

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

[BOBAH13]

А зачем таймер ? Чтобы к точке используйте расчеты - движения в ручную. OnMouseDown, OnMouseMove, OnMouseUp в таком духе. А как расчитать в сети примеров куча

[Alter]

Так пойдёт?

unit Units;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Const Xx :Integer=25;
      Yy :Integer=40;
      Rr :Integer=15; //радиус от точки

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 Panel1.Perform(WM_SysCommand, $F012, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin //визуализация области
 Canvas.Brush.Color := clBlue;
 Canvas.Pen.Color := clRed;
 Canvas.Ellipse(Xx-Rr, Yy-Rr, Xx+Rr, Yy+Rr);
 Canvas.Pixels[Xx, Yy] := clRed;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 With TControl(Sender) DO
 If (Left in [Xx-Rr..Xx+Rr]) And (Top in [Yy-Rr..Yy+Rr]) then
 begin
  Left := Xx;
  Top := Yy;
 end;
end;

end.