[DX10] Drag-and-Drop Пример

[R.is]

Добрый день

Помогите разобраться с перетаскиванием компонента, маленький простой пример как перемещать Button или Image по Panel или по любому другому компоненту.

Нижеприведенный код работает для VCL, а вот как сделать тоже самое для FMX?

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source = Panel1 then Accept := True else Accept := False;
end;

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

[enatechno]

https://www.youtube.com/watch?v=ta_N6DSi0Xg
с 22 минуты

Изменено 24 февраля, 2016 пользователем enatechno

[R.is]

Можете дать ссылку на видео? А-то у меня она что то не открывается

[Равиль Зарипов (ZuBy)]

https://youtu.be/ta_N6DSi0Xg

Изменено 25 февраля, 2016 пользователем ZuBy