На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!
msm.ru
[!] Как относитесь к модерированию на этом форуме? Выскажите свое мнение здесь
  
> Работа с буфером обмена в C++ Builder, Научите работе с буфером обмена
    Сделал простую программу на Delphi, которая добавляет в буфер обмена фразу при копировании текста из программы в буфер. Для этого на форму добавил объекты RichEdit1, Timer1 и PopupMenu1, в последнем три пункта меню: MenuCopy,

    MenuSelectAll и MenuClear. PopupMenu1 привязан к RichEdit1.

    Вот код:
    ExpandedWrap disabled
      uses ClipBrd;
       
      const S='При публикации ссылка на источник обязательна.';
       
      ...
       
      procedure TForm1.MenuCopyClick(Sender: TObject);
      begin
        RichEdit1.CopyToClipboard;
        ClipBoard.AsText:=ClipBoard.AsText+#13+#10+S;
      end;
       
      procedure TForm1.MenuSelectAllClick(Sender: TObject);
      begin
        RichEdit1.SelectAll;
      end;
       
      procedure TForm1.MenuClearClick(Sender: TObject);
      begin
        RichEdit1.Clear;
      end;
       
      procedure TForm1.Timer1Timer(Sender: TObject);
      begin
        MenuCopy.Enabled:=(RichEdit1.SelText<>'');
        MenuClear.Enabled:=(RichEdit1.Lines.Count>0);
        MenuSelectAll.Enabled:=MenuClear.Enabled;
      end;

    Кто-нибудь поможет перевести этот код в C++Builder? По крайней мере подключение модуля ClipBrd и строку
    ExpandedWrap disabled
      ClipBoard.AsText:=ClipBoard.AsText+#13+#10+S;
    Заранее большое спасибо!
    1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
    0 пользователей:


    Рейтинг@Mail.ru
    [ Script Execution time: 0,0570 ]   [ 15 queries used ]   [ Generated: 1.06.20, 21:30 GMT ]