Текущий архив: 2004.10.24;
Скачать: CL | DM;
Вниз
Помощь по по 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
