Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Вниз

Помощь по по 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;


---

← →
3J106UH ©   (2004-10-12 17:41) [3]

Спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.038 c