Перейти к содержанию
Fire Monkey от А до Я
  • 0

[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;
Ссылка на комментарий

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...