Как программно реализовать Cut, Copy и Paste?

Delphi , ОС и Железо , Буфер обмена

Как программно реализовать Cut, Copy и Paste?

Следущие операции производятся с активным контролом на форме:

Code:

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;

Если Вы разрабатываете приложение MDI, то необходимо отправлять сообщение в активное дочернее окно, т.е. использовать: ActiveMDIChild.ActiveControl.Handle

Взято из http://forum.sources.ru

Статья Как программно реализовать Cut, Copy и Paste? раздела ОС и Железо Буфер обмена может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Буфер обмена ::

02.06.2023 08:18:17/0.016201019287109/2