Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=416147&view=findpost&p=3813398 Sat, 26 Oct 2019 02:02:26 +0000 Работа с буфером обмена в C++ Builder https://forum.sources.ru/index.php?showtopic=416147&view=findpost&p=3813398
MenuSelectAll и MenuClear. PopupMenu1 привязан к RichEdit1.

Вот код:
    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 и строку
    ClipBoard.AsText:=ClipBoard.AsText+#13+#10+S;
Заранее большое спасибо!]]> manemale Borland C++ Builder/Turbo C++ Explorer