Как перетаскивать (Drag and Drop) выделенный текст между компонентами MemoDelphi , Синтаксис , Drag and DropКак перетаскивать (Drag and Drop) выделенный текст между компонентами Memo
Данный способ позволяет не погружаясь глубоко в создание компонент осуществить операцию "drag and drop" выделенного текста. Создайте новый компонент (TMyMemo), наследовав его от TMemo. И объявите его следующим образом:
Добавьте обработчик WMLButtonDown:
Теперь установите этот компонент в package, создайте новый проект в Delphi и поместите на форму два TMyMemo. Для обоих компонент необходимо создать обработчики событий OnDragOver, которые должны выглядеть следующим образом:
Так же для них необходимо сделать обработчики событий OnDragDrop:
Запустите приложение, поместите в поля memo какой-нибудь текст, и посмотрите что произойдёт, если перетащить текст между полями. Статья Как перетаскивать (Drag and Drop) выделенный текст между компонентами Memo раздела Синтаксис Drag and Drop может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Drag and Drop ::
|
||||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |