Перенос строк из TListBox в TRichEditDelphi , Компоненты и Классы , СпискиПеренос строк из TListBox в TRichEdit
Оформил: DeeCo function RECharIndexByPos(RichEdit: TRichEdit; X, Y: Integer): Integer; var P: TPoint; begin P := Point(X, Y); Result := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, Longint(@P)); end; procedure TForm1.RichEdit1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var P: TPoint; begin // Check, if Source is ListBox1 Accept := Source = ListBox1; if GetCursorPos(P) then with RichEdit1 do begin // Get the Index from Mouse Position P := ScreenToClient(P); SelStart := RECharIndexByPos(RichEdit1, P.X, P.Y); SetFocus; end; end; procedure TForm1.RichEdit1DragDrop(Sender, Source: TObject; X, Y: Integer); begin // finally insert text at mouse position RichEdit1.SelText := ListBox1.Items[ListBox1.ItemIndex]; end; Программа на Delphi позволяет переносить строки из компонента TListBox в TRichEdit, используя функцию RECharIndexByPos для определения индекса символа по координатам мыши и процедуры DragDrop для вставки текста в RichEdit. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |