Drag&Drop

[shtuceron]

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

[frodo]

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

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

А ты бы немог привести фрагмент кода!!а то тут телепатов кажись нету

[Stilet]

Если следующий пост не будет с кодом автора тему закрою.

[shtuceron]

Специально не выкладывал свой код, хотел узнать ваше мнение по возможному появлению ошибки и дойти самому, но предложений не поступило, однако ошибка была найдена: метод DRAGOVER мной был описан не на приемник (форму) а на источник (кнопку).

Привожу код исправленной программы, все работает.

implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then
begin
TButton(Sender).BeginDrag(true);
end;
end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if TButton(Source) is TButton then Accept:=true else Accept:=false;
end;

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TButton(Source).Left:=X;
TButton(Source).Top:=Y;
end;

end.