Поиск сообщества
Показаны результаты для тегов 'Drag-and-Drop'.
Найдено: 1 результат
-
Добрый день Помогите разобраться с перетаскиванием компонента, маленький простой пример как перемещать 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;
