Как программно реализовать 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 достигается с помощью вызова соответствующих оконных сообщений WM_Cut, WM_Copy и WM_Paste для активного контроля на форме.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

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

Время компиляции файла: 2024-08-19 13:29:56
2024-10-26 17:55:40/0.0031228065490723/0