• 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;

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

0 ответов на этот вопрос

Ответы на этот вопрос пока отсутствуют

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация  

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

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