Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.033 c
1-1097308276
Wish
2004-10-09 11:51
2004.10.24
Как сделать чтобы контролы не моргали


3-1096211392
ksan
2004-09-26 19:09
2004.10.24
объектные БД


14-1096545927
Александр Иванов
2004-09-30 16:05
2004.10.24
Нужна консультация врача


8-1091010710
СтёпКин
2004-07-28 14:31
2004.10.24
Запись в JPG при видеозахвате


14-1096967487
Robbin
2004-10-05 13:11
2004.10.24
ОЗУ