FMX StrinGrid, копирование данных

[Aleks Serov]

Привет мастера! Хочу скопировать по длинному тапу данные ячейки StringGrid,

на StringGrid1Gesture повесил такой код:

if EventInfo.GestureID = System.UITypes.igiLongTap then
   begin
   ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Selected]);
   Vibra;
   ShowMessage('Данные скопированы');
   end;

но получаю access violation, пробовал так еще:

 ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]);

но та же ошибка,хотя данные в ячейке есть. В чем трабла, кто подскажет?

если закоментить строку ClipService сообщение про копирование данных есть, но данных в буфере нет ))

 

[Aleks Serov]

Вибра пашет,копирование данных нет ))

procedure Vibra;
Var
  Vibrator:JVibrator;
begin
 Vibrator:=TJVibrator.Wrap((TAndroidHelper.Context.getSystemService(TJContext.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID);
 Vibrator.vibrate(100);
end;

Изменено 27 января, 2020 пользователем Aleks Serov

[Aleks Serov]

Странно но на событии StringGrid1CellClick выполнение такого кода:

if StringGrid1.Cells[1,StringGrid1.Row]<>'' then ClipService.SetClipboard(StringGrid1.Cells[1,StringGrid1.Row]);

вешает прогу,а при повторно клике на гриде происходит вылет.. ((

 

Изменено 27 января, 2020 пользователем Aleks Serov

[Aleks Serov]

Все решил самостоятельно. Как оказалось забыл прописать в

  private
    ClipService: IFMXClipboardService;

и еще в  FormCreate

if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(ClipService)) then ClipService:=nil;
 

Теперь все копирует как надо. Может пригодиться кому мой опыт.. )))