Всех мастеров с 1 сентября!!!!!

← →
Tort (2006-09-01 13:58) [0]

Добрый день, уважаемые мастера и все остальные участники форума!

Хочу поздравить всех с 1 сентября:) !

Все мы, и новички и спецы и профи начиная от молока матери
и по сей день учимся-учимся и ещё раз учимся! Не видим ни дня ни ночи!
Копаем и копаем и что-то в конце концов выкапываем! И выкапываем нужное
не только для нас самих, но и для других.
Я счастлив, что на этом белом свете существует такая прекрассная сфера
как IT. Я прекрасно понимаю, что испытывает каждый из нас, в очередной раз
(а то и в последний) садится за парту в аудитории!
Пусть этот учебный год принесет нам много хороших результатов, много успехов,
много новых идей, пусть реализация любого проекта закончится успехом и пусть
нам дорогу не беребегает ни какая скотина!

Господа, хочу перейти сразу к делу.

Не могу понять, как можно заставить компонент Listbox выделять Item"ы по нажатию
на кнопку. т.е. сначала выделен item[0] - жмем кнопку выделяется Item[1] и так далее...

Не подскажете как это можно реализовать?

← →
Джо © (2006-09-01 14:02) [1]

> Не могу понять, как можно заставить компонент Listbox выделять
> Item"ы по нажатию
> на кнопку. т.е. сначала выделен item[0] - жмем кнопку выделяется
> Item[1] и так далее...

ItemIndex (это если Multiselect := False, то самое простое).
Selected[Index] -- это если Multiselect := True, то можно выделить сразу несколько строк. Если еще ExtendedSelecte := True, то можно выделять несмежные строки.

← →
Steep © (2006-09-01 14:04) [2]

var I:byte;
begin
listbox.item[i];
i:=i+1;
end;
вроде так (нет делфи рядом)

← →
Плохиш © (2006-09-01 14:07) [3]

> Steep © (01.09.06 14:04) [2]

Это чёй-то Вы здесь такое написали?

← →
Steep © (2006-09-01 14:09) [4]

ой сорри не врубаюсь уже в суть вопроса... (/me после жуткой бесснной ночи и ужастного рабочего дня...)

← →
Elen © (2006-09-01 14:16) [5]

> Не подскажете как это можно реализовать

MultiSelect:=true; и пошло поехало

> var I:byte;
> begin
> listbox.item[i];
> i:=i+1;
> end;

Прикольный способ - а что он делает?

Цитата : (М)Учиться (М)Учиться и еще раз (М)Учиться
В.И. (М)Ленин

← →
Tort (2006-09-01 14:18) [6]

Ребята! Не так вы наверное вопрос мой поняли :(

Предположим, что в ListBox1 выбран элемент с индексом 0 я жму кнопку и выделяется элемент с индеком 1, т.е. следующий, жму ещё раз выделяется элемент с индексом 2 и так далее по кругу.

← →
Palladin © (2006-09-01 14:19) [7]

это AVгенерилка... хотя иногда, крайне крайне редко, может не сработать...

← →
Palladin © (2006-09-01 14:21) [8]

Procedure OnButtonClick;
Begin
With ListBox Do If (ItemIndex=-1) or (ItemIndex=(Count-1))
Then ItemIndex:=0
Else ItemIndex:=ItemIndex+1;
End;

← →
Плохиш © (2006-09-01 14:21) [9]

> Tort (01.09.06 14:18) [6]

А что Джо ну совсем непонятно написал?

> Elen © (01.09.06 14:16) [5]

А можете цитату полностью привести?

← →
Tort (2006-09-01 14:22) [10]

если случайно выбрать элемент не проблема. мне интересно как можно наращивать что ли так сказать выделение каждого элемента.

← →
Tort (2006-09-01 14:24) [11]

Мужики! Хочу выразить БОЛЬШУю благодарность в помощи Palladin"У
Его пример мне очень понравился и нглавное работает! Спасибо тебе брат!

← →
Плохиш © (2006-09-01 14:26) [12]

> Tort (01.09.06 14:24) [11]
> нглавное работает!

Главное, что можно просто тупо скопировать и не забивать голову всякими глупостями.

← →
Palladin © (2006-09-01 14:28) [13]

ах... наращивать...

Procedure OnButtonClick;
Var
i,n:Integer;
Begin
With ListBox Do
Begin
n:=-1;
For i:=0 to Count-1 Do If Selected[i] Then n:=i;
If n<>(Count-1) Then Selected[n+1]:=True;
End;
End;

← →
Джо © (2006-09-01 14:28) [14]

> [10] Tort (01.09.06 14:22)
> если случайно выбрать элемент не проблема. мне интересно
> как можно наращивать что ли так сказать выделение каждого
> элемента.

[8] Palladin © (01.09.06 14:21)

← →
Elen © (2006-09-01 14:29) [15]

> Плохиш А можете цитату полностью привести?

Всю нет! (М)Ленин был скрытный, к тому же его уже давненько не видно...

> если случайно выбрать элемент не проблема. мне интересно
> как можно наращивать что ли так сказать выделение каждого
> элемента.

Не забудь проверку на последний элемент!!!

Кстати, пРяздрЯв"яю с пЯздником уче-NIKов и уче-ниц, а так же их родителей и всех всех всех...

← →
Tort (2006-09-01 14:30) [16]

Спасиба всем!!!

> Elen © (01.09.06 14:29) [15]
>
> > Плохиш А можете цитату полностью привести?
>
> Всю нет! (М)Ленин был скрытный

Так зачем кидаться обрывками вырванными из контекста?
А фразу никто и не скрывает, и её можно найти в собрании сочинений вил в речи на каком-то съезде комсомола.

Какой тут праздник. Только медитация спасает.

В первый день - физкультура(тяжелая атлетика).Грустно!

С днем знаний, причастных!

Всех мастеров с 1 сентября!!!!! Найти похожие ветки