Вниз
Скачать: CL | DM;

Почему этот код вызывает ошибку?   Найти похожие ветки 

← →
Yanis ©   (2003-06-06 22:11) [0]


var
sel:Integer;
begin
Sel:=ListBox2.SelCount;
ListBox1.Selected[sel]:=True;


А если точнее, то как реализовать данный код, так что бы не генерировалась ошибка.


← →
Александр из Минска ©   (2003-06-06 22:23) [1]

То есть ты хочешь выделить в первом списке тот элемент, номер которого равен выделенному во втором списке? Если так, то:
ListBox1.ItemIndex := ListBox2.ItemIndex;


← →
Александр из Минска ©   (2003-06-06 22:27) [2]

А насчет твоего, то тебе наверное надо убирать фокус со старого, так как 2 фокуса в одном компаненте это нехорошо.
var
lastsel, newsel : Integer;.
...
begin
...
ListBox1.Selected[lastsel] := False;
ListBox1.Selected[newsel] := True;
...
end;


← →
Yanis ©   (2003-06-06 22:33) [3]

Спасибо!
А можно сделать так чтобы это делалось немного по быстрее, а то как то заторможено выходит?


← →
Александр из Минска ©   (2003-06-06 22:35) [4]

Насчет скорости не знаю. А то, что я ранее писал помогло хоть?


← →
Александр из Минска ©   (2003-06-06 22:45) [5]

Удалено модератором
Примечание: Личная переписка


← →
Yanis ©   (2003-06-06 22:54) [6]

Спасибо за помощь. Код помог. Просто в моём случае это хоть что-то, у меня задача: стоит hook, при клике мышью в системе записывается инфа(координаты курсора, какой клавишей был сделан клик, во сколько) в ListBox. При выделении в ListBox пункта с координатами на экране появляется стрелка и показывает где именно был сделан клик. А ListBox"а два(поэтому надо выделять одновременно) Решить эту задачу смог только этим способом. Может он в принципе и не рациональный.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c
14-60395
LiLa Ananda
2003-06-02 10:21
2003.06.19
Что ведет мужчину?


3-60034
vantage10
2003-05-25 18:44
2003.06.19
SQL запрос, бд-MS Access, по дате


8-60273
Kair
2003-03-02 21:24
2003.06.19
Проигрывание видео-фильмов.


7-60443
Bug
2003-04-16 10:22
2003.06.19
версия ОС.


14-60361
BBCHa
2003-06-02 12:30
2003.06.19
Delphi 5 Professional, Update Pack 1




   Наверх