Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.26.233] |
|
Сообщ.
#1
,
|
|
|
Сделал простую программу на 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; |