| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помощь по по listbox и memo [D7, WinXP]

3J106UH ©   (2004-10-11 17:22:00) 

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

---

3J106UH   (2004-10-12 17:41:00) [1]

Спасибо

---

Yanis   (2004-10-11 18:34:00) [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;


---

begin...end   (2004-10-11 17:25:00) [3]

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

---

Наверх