[Maetsky]

Извините, что не в тему форума. Сделал простую программу на Delphi, которая добавляет в буфер обмена фразу при копировании текста из программы в буфер. Для этого на форму добавил объекты RichEdit1, Timer1 и PopupMenu1, в последнем три пункта меню: MenuCopy,

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;

Заранее большое спасибо!

[lmikle]

Ну, во первых, С++ Builder умеет компилить исходники Delphi.
По поводу подключения:

Код:

#include <Clipbrd.hpp>