Приветствую Мастеров! Очень нужная задача, есть.

← →
IronHawk © (2002-05-09 01:05) [0]

Хелп, плз.
Есть форма в ней ЛистБокс и Мемо.
В ЛистБоксе немерянно строк (или 20, как кому удобней), Надо по ДаблКлику в строке ЛистБокса копирить её текст в Мемо,
после, если поставить курсор в середину или ещё где, набора символов перенесённых из ЛистБокса а потом БаблКликнуть в ЛистБоксе снова в другой строке, то чтоб новый текст из строки ЛистБокса сунулся туда где стоял курсор в Мемо, как Вы помните где-то в середине или около того!
Очень нуна, решить такой трудный задача!

. . . заранне благодарен.

← →
Almaz © (2002-05-09 01:18) [1]

Наиболее простой вариант:

uses ..., Сlipbrd; procedure TForm1.ListBox1DblClick(Sender: TObject); begin Clipboard.SetTextBuf(PChar(Listbox1.Items[Listbox1.ItemIndex])); Memo1.PasteFromClipboard; end;

Удачи.

← →
IronHawk © (2002-05-09 02:00) [2]

> Almaz © (09.05.02 01:18)
> Наиболее простой вариант:
>
> uses ..., Сlipbrd;

Спасибо, но только не клипборд ПЛЗ!

← →
ION T © (2002-05-09 02:22) [3]

Менее простой вариант:

procedure TForm1.ListBox1DblClick(Sender: TObject); var tmp: string; SelStart: integer; begin tmp:= memo1.Lines.GetText; SelStart:= memo1.SelStart+ 1; insert(ListBox1.Items[ListBox1.ItemIndex], tmp, SelStart); memo1.Lines.SetText(PChar(tmp)); memo1.SelStart:= SelStart; end;CODE> Чем больше в мемо текста, тем медленнее будет работать.....можно конечно не копировать весь текст, а находить строку в которой находится символ с индексом SelStart методом сравнивания длин строк до нахождения нужной, но если текста всё-же много, а вставить надо в конец, то всё равно будет тормозить......

← →
ION T © (2002-05-09 02:25) [4]

Шо стало с тегом меня не спрашивайте....

← →
VID © (2002-05-09 02:29) [5]

to ion t: а нельзя сразу : insert (listbox1.items[listbox1.itemindex], memo1.text, selstart ) ?

← →
IronHawk © (2002-05-09 22:50) [6]

А кто знает как эту задачку решить в 3-4 строчки через WinAPI?

← →
Song © (2002-05-09 22:52) [7]

Видимо только Вы...

← →
IronHawk © (2002-05-09 23:36) [8]

> Song © (09.05.02 22:52)
> Видимо только Вы...

Не, я серьёзно.
Мне сказали что так можно сделать, но не сказали как именно :-(.

через буфер обмена...

Memo1.Perform(EM_REPLACESEL, 0, Integer(PChar(ListBox1.Items[ListBox1.ItemIndex])))

> McSimm © (10.05.02 10:13)
> Memo1.Perform(EM_REPLACESEL, 0, Integer(PChar(ListBox1.Items[ListBox1.ItemIndex])))

Cамо оно, спасибо.
Круто, самое классное решение!
Спасибо!!!

Приветствую Мастеров! Очень нужная задача, есть. Найти похожие ветки