Delphi clipboard
Автор Ekaterina Minina задал вопрос в разделе Другие языки и технологии
как в делфи написать программу чтоб скопировать текст в буфер обмена(для последуешей вставки куданить) ? и получил лучший ответ
Ответ от Ewe 2e¶ CoЛнЫшКоcBeTиТоЧеНЬяРкО*[гуру]
uses ClipBrd; ... var str4:string; ... Clipboard.AsText:=\'Пожалуйста посетите мой ЛК\'; {Копирование текста в буфер обмена} Clipboard.AsText:=Form1.Caption; {Копирование заголовка окна главной формы в буфер обмена} ... str4:=Clipboard.AsText; {Вставка из буфера обмена в строковую переменную, надо проверять, в буфере может не быть текста!!! } Form1.Edit1.Text:=Clipboard.AsText; {Вставка из буфера обмена в поле ввода, аналогично, буфер может быть пустой или не содержать текст, или содержать только картинку} Проверка на наличие текста в буфере обмена производится примерно так: if Clipboard.HasFormat(CF_TEXT) then Form1.Edit1.Text := lipboard.AsText else MessageDlg(\'В буфере обмена текста нет, не могу вставить, извините\', mtInformation, [mbOK],0); end; Есть компоненты, которые уже изначально обладают некоторыми методами, связанными с буфером обмена, например, TEdit, например, вызов Form1.Edit1.CopyToClipboard; копирует текст из поля ввода в буфер обмена. Копирование изображений производится немножечко по-другому и здесь не рассматривается, т. к. вы спрашиваете именно про текст.
Если память не изменяет, такой код можно вставить в Таймер и сохранять текст при каждом его появлении в буфере обмена If ClipBoard.AsText<>'' Then Begin Memo1.Lines.Add(ClipBoard.AsText); Memo1.Lines.SaveToStr('MyBuffer.TXT'); Cl
Как в Delphi скопировать строку типа string в буфер обмена?
Ой, ну и намудрили же.
uses ClipBrd;
...
помогите с Delphi 7
Edit1.SelStart:=1;
Edit1.SelLength:=length(edit1.text);
Edit1.SetFocus;