Hds Wert

супер! все работает были ошибка оказалось рад старый был поставил новый и все заработало. спасибо большое 

2 часа назад, krapotkin сказал:

вставка

  if not TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
    exit;
 if ClipboardService.HasImage then
  begin
    b := TBitmap.Create;
    bs := ClipboardService.GetImage;
    b.Assign(bs);
end

копирование
....
surface := TBitmapSurface.Create();
surface.Assign(bitmap);
ClipboardService.SetImage(surface)

 

 

 извиняюсь, но чет не допер я (

Добрый день! необходимо скопировать изображение или файл с изображением(png) в буфер обмена что бы потом вставить в графический редактор (например корел)нажав кнопки ctl+V