Drag and Drop из RichEdit

Delphi , Синтаксис , Drag and Drop

 var
   Form1: TForm1;
   richcopy: string;
   transfering: boolean;
 implementation

 {$R *.DFM\}

 procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
 begin
  if length(richedit1.seltext)>0 then begin
   richcopy:=richedit1.seltext;
   transfering:=true;
  end; //seltext
 end;

 procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
 begin
  if transfering then begin
   transfering:=false;
   listbox1.items.add(richcopy);
  end; //transfering
 end;

Пример программирования на Delphi, демонстрирующий использование RichEdit-контролов и функциональности drag-and-drop. Вот подробное описание того, что каждый раздел делает:

Form1: TForm1: эта строка объявляет объект формы, называемый Form1, типа TForm1.

richcopy: string;: это объявление переменной, определяющее строковую переменную, называемую richcopy.

transfering: boolean;: это объявление переменной, определяющее логическое значение transfering, которое используется для отслеживания того, переносится ли текст из RichEdit-контрола.

implementation: этот ключевое слово обозначает начало секции реализации, где определены процедуры и функции.

{$R *.DFM}: эта строка указывает, что файл ресурсов Delphi (*.DFM) должен быть скомпилирован в исполняемый файл.

RichEdit1MouseDown procedure: это процедура, вызываемая при клике пользователя на RichEdit-контроле. Если в RichEdit-контроле есть выделенный текст, выполняются следующие действия:

• richcopy устанавливается в значение выделенного текста.
• Переменная transfering устанавливается в true.

ListBox1MouseMove procedure: это процедура, вызываемая при перемещении мыши над Listbox-контролем. Если переменная transfering имеет значение true, то это означает, что текст был ранее выделен в RichEdit и переносится, поэтому:

• Переменная transfering устанавливается в false.
• Выделенный текст из RichEdit (richcopy) добавляется в виде нового элемента в Listbox-контроле.

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

В статье описывается реализация функции Drag и Drop в компоненте RichEdit Delphi, при помощи которой текст из-richedit можно перетаскивать в список элементов.

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

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

:: Главная :: Drag and Drop ::