есть ли способ узнать номер колонки в листбоксе,

← →
clickmaker © (2004-12-30 13:44) [0]

в которой сейчас выделен элемент? Вроде бы простая задачка, но что-то никак не решить

← →
Rouse_ © (2004-12-30 13:46) [1]

Колонки?
Может строки?

← →
clickmaker © (2004-12-30 13:48) [2]

> Rouse_ © (30.12.04 13:46) [1]

в многоколоночном листбоксе. Ну или хотя бы узнать: первая эта колонка или последняя

← →
Vlad © (2004-12-30 14:05) [3]

> clickmaker © (30.12.04 13:48) [2]

а вычислить не пробовал?
через высоту ListBox"a, одного Item"а и общее кол-во Item"ов

← →
clickmaker © (2004-12-30 14:08) [4]

> Vlad © (30.12.04 14:05) [3]
>
> > clickmaker © (30.12.04 13:48) [2]
>
> а вычислить не пробовал?
> через высоту ListBox"a, одного Item"а и общее кол-во Item"ов

Да была такая мысль... На крайняк сойдет, но я думал, может есть более красивое решение

← →
Anatoly Podgoretsky © (2004-12-30 14:12) [5]

А зачем нужен номер колонки?

← →
GuAV © (2004-12-30 14:13) [6]

ListBox1.ItemIndex div GetListBoxInfo(ListBox1.Handle) ?

← →
msguns © (2004-12-30 14:48) [7]

Если много колонок, то почему не стрингрид (дравгрид) ?

← →
clickmaker © (2004-12-30 15:01) [8]

> GuAV © (30.12.04 14:13) [6]

Для GetListBoxInfo "Minimum operating systems Windows 98, Windows NT 4.0 with Service Pack 6" (c) MSDN

а мне нужно, чтоб в случае чего и под 95 работало

← →
clickmaker © (2004-12-30 15:12) [9]

> Anatoly Podgoretsky © (30.12.04 14:12) [5]
> А зачем нужен номер колонки?

мне нужно узнать: первая ли колонка или последняя. Чтобы поставить выделение на начало или конец при нажатии клавиш-стрелок

← →
nikkie_ (2004-12-30 15:20) [10]

знаешь как изменить параметр и не знаешь, как узнать его значение? LB_SETCARETINDEX / LB_GETCARETINDEX?

> nikkie_ (30.12.04 15:20) [10]

При чем тут LB_GETCARETINDEX ? Мне нужен не итем в фокусе, а выяснить: первая колонка или последняя.
Похоже, что способ [3] единственный

← →
nikkie_ (2004-12-30 15:45) [12]

сорри, глаз замылился, прочитал "multiple-selection" в справке прочитал как "multicolumn".

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ListBox1.ItemRect(ListBox1.ItemIndex).Left = 0) and
(SendMessage(ListBox1.Handle, LB_GETTOPINDEX, 0, 0) = 0) then
caption := "первая"
else
caption := "не первая";
end;

> SendMessage(ListBox1.Handle, LB_GETTOPINDEX, 0, 0)

даже можно заменить на ListBox1.TopIndex

есть ли способ узнать номер колонки в листбоксе, Найти похожие ветки