Копировать текст из TEdit или TMemo в буфер обмена

Автор: Золотницкий Геннадий

Как программно скопировать текст в буфер обмена из TMemo либо TEdit? Очень просто, нужно вызвать метод CopyToClipboard() либо PasteFromClipboard() (соответственно для копирования или вставки) у этих объектов. А если используется нестандартный компонент без этих методов, можно скопировать/вставить текст посредством отправки WinAPI сообщений.

procedure Paste(Wnd: HWND);
begin
 SendMessage(Wnd, wm_paste, 0, 0); // отправляем сообщение wm_paste для вставки
end;

procedure CopyToBuf(Wnd: HWND);
begin
 SendMessage(Wnd, wm_copy, 0, 0); // отправляем сообщение wm_copy для копирования
end;

Параметр Wnd - дескриптор окна ввода текста.

Также можно отменить ввод текста, вызвав метод Undo(), а если его нет - отправить WinAPI сообщение.

procedure Undo(Wnd: HWND);
begin
 SendMessage(Wnd, wm_undo, 0, 0);
end;

Wnd - Handle окна ввода.

Просмотров: 7256

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.