|
Вопрос # 1 004/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
Как скопировать текст из "мемо" в буфер обмена винды?
И как вставить? Спасибо.
 |
Вопрос задал: Anton-L (статус: Посетитель)
Вопрос отправлен: 25 октября 2007, 21:46
Состояние вопроса: решён, ответов: 3.
|
Ответ #1. Отвечает эксперт: Матвеев Игорь Владимирович
Здравствуйте, Anton-L!
1. Копирование текста:
Clipboard.SetTextBuf(PChar(Memo1.Text));
2. Вставка текста:
Memo1.Text := Clipboard.AsText;
Не забудьте включить в uses модуль Clipbrd в котором реализован класс TClipboard.
Ответ #2. Отвечает эксперт: min@y™
У TMemo есть также такие методы как CopyToClipboard(), CutToClipboard(), PasteFromClipboard(), которые копируют/вырезают выделенный текст из БО и вставляют из БО соответственно.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 26 октября 2007, 08:16
Оценка за ответ: 5
|
Ответ #3. Отвечает эксперт: Feniks
Здравствуйте, Anton-L!
Дополнение к выше изложенным ответам.
Программная реализация Cut, Copy и Paste:
procedure TForm1.Cut1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Cut, 0, 0);
end;
procedure TForm1.Copy1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Copy, 0, 0);
end;
procedure TForm1.Paste1Click(Sender: TObject);
begin
SendMessage (ActiveControl.Handle, WM_Paste, 0, 0);
end;
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 26 октября 2007, 14:17
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 0.
31 января 2011, 19:23: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|