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

Начать Drag'n'Drop в Windows из события OnGesture


МихаилЪ чайковЪ

Вопрос

Сейчас делаю так

procedure TForm1.Circle1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  lsender: TCircle;
  Svc: IFMXDragDropService;
  DragData: TDragObject;
  LCircleShot: FMX.Graphics.TBitmap;
begin
  lsender := (Sender as TCircle);
  if TPlatformServices.Current.SupportsPlatformService(IFMXDragDropService, Svc) then
  begin
    LCircleShot := lsender.MakeScreenshot;
    lsender.Align := TAlignLayout.None;
    DragData.Source := Sender;
    DragData.Data := LCircleShot;
    Svc.BeginDragDrop(Self, DragData, LCircleShot);
  end
end;

Проблема в том, что при удержании пальца в тот самый момент, когда процедура должна выполниться, приложение наглухо зависает

Ссылка на комментарий

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

Ответов пока нет

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

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

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

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

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

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

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

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

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...