Смещение компонента

[Volt]

помогите двигаю компоненты через таймер и при щелчке по компоненту он смещается

var
  Form1: TForm1;
  Save_Object:TObject;
  posX , posY:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Save_Object.ClassName='TButton' then
begin
(Save_Object as TButton).Left:=mouse.CursorPos.X-(Save_Object as TButton).Parent.Left-posX;
(Save_Object as TButton).Top:=mouse.CursorPos.Y-(Save_Object as TButton).Parent.Top-posY;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Save_Object:=TObject.Create;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Save_Object:=Sender;

posX:=X;
posY:=Y;
timer1.Enabled:=true;
end;

для того что бы он не смещался я писал так

(Save_Object as TButton).Left:=mouse.CursorPos.X-(Save_Object as TButton).Parent.Left-posX-4;
(Save_Object as TButton).Top:=mouse.CursorPos.Y-(Save_Object as TButton).Parent.Top-posY-30;

но при переносе на другой компьютер опять появлялось смещение при щелчке. как можно это решить?

[Stilet]

А почему в таймере?
Не проще ли для этого использовать Drag&Drop или

const
  Sc_dragmove = $F012;
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

[mihali4]

Возможно, ТС хочет реализовать шутку такую - тронешь мышкой компонент, а он "убегает"...

[Volt]

нет мне нужно просто перетаскивать компонент внутри формы. а при использовании Drag&Drop компонент может выходить за пределы формы или я ошибаюсь

[spamer]

Вот посмотри эти ссылки 1 и 2.
А также вот пример, по примеру как описано в ссылках выше:

з.ы. надеюсь понял я вас правильно, что вам надо.

[mihali4]

Так Стилет уже дал готовый код... Повторю для слабовидящих:

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button1.perform(WM_SysCommand,SC_DragMove,0);
end;

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

mihali4, ТС чего то не понравилось в коде

Он просто не увидел слова "или" и решил, что это - драг/дроп...

[spamer]

mihali4, ТС чего то не понравилось в коде, на сколько я понял, вот я ему и дал другой вариант. И никаких "слабовидящих", я прекрасно видел код Stilet - и всего лишь предложил другой вариант. Вот и все - не более.

[Volt]

данный вариант

const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  perform(WM_SysCommand,SC_DragMove,0);
end;

почему то не работает с TImage

[Stilet]

почему то не работает с TImage

Вполне может быть. TImage не обрабатывает такое сообщение - это же просто канва.

[DomiNick]

данный вариант
...
почему то не работает с TImage

TImage - не является "окном"... Придётся обрабатывать MouseMove у нужного TImage...