Помощь по по listbox и memo

← →
3J106UH © (2004-10-11 17:22) [0]

Уважаемые delphi"йцы, я тут над замуткой одной уже 2 дня думяю...
Как сделать так, чтоб когда выбираешь допустим третий item в listbox выбирается третья строка в memo. Заранее благодарю за помощь.

← →
begin...end © (2004-10-11 17:25) [1]

Что значит выбирается третья строка в memo?

← →
Yanis © (2004-10-11 18:34) [2]

>Что значит выбирается третья строка в memo?
На сколько я понял это позиция курсора в Memo по вертикали.

Вот и код для реализации:
procedure TForm1.ListBox1Click(Sender: TObject); begin SetVPos(Memo1,LisTbox1.ItemIndex); Memo1.SetFocus; end; function TForm1.SetVPos(m: TMemo; YPos: Integer): Boolean; var CharIdx: Integer; begin CharIdx := SendMessage(M.Handle, EM_LINEINDEX, YPos, 0) + 0; SendMessage(M.Handle, EM_SETSEL, CharIdx, CharIdx+1);// +1 - что бы было заметно на какой строке находится каретка. end;

Спасибо

Помощь по по listbox и memo Найти похожие ветки