Выбор в TCheckListBox-е выбранных строк

← →
worldmen © (2006-02-09 16:57) [0]

Как выбрать в TCheckListBox-е только выделенные строки.
Или это можно только просматривая весь список?

← →
Gero © (2006-02-09 16:58) [1]

> Или это можно только просматривая весь список?

Да.

← →
worldmen © (2006-02-09 17:34) [2]

Еще вопрос.
Свойство CheckListBox1.SelCount - указывает число выбранных элементов.
Но почемуто всегда оно равно -1 (минус единице). Почему? Или это св-во не работает.

← →
Джо © (2006-02-09 17:36) [3]

When the MultiSelect property is False, SelCount is always –1.

← →
worldmen © (2006-02-09 17:43) [4]

А где находится это св-во?
Не в CheckListBox1.Items.MultiSelect не CheckListBox1.MultiSelect его нет.

← →
umbra © (2006-02-09 17:48) [5]

в CheckListBox1

← →
Джо © (2006-02-09 17:50) [6]

> [4] worldmen © (09.02.06 17:43)
> А где находится это св-во?
> Не в CheckListBox1.Items.MultiSelect не CheckListBox1.MultiSelect
> его нет.

Оно находится в секции private, наследуется от TCustomListBox. Следовательно, в CheckListBox оно всегда будет False, в отличие от TListBox, в котором оно вынесено в published.

← →
worldmen © (2006-02-09 17:52) [7]

Понятно

← →
Джо © (2006-02-09 17:53) [8]

> [6] Джо © (09.02.06 17:50)

Ошибся. Оно просто отсутствует в published, т.е., недоступно в дизайнере, но зато доступно в ран-тайм.

← →
umbra © (2006-02-09 17:56) [9]

2 Джо © (09.02.06 17:50) [6]

оно находится в секции public предка TCustomListBox

← →
umbra © (2006-02-09 18:04) [10]

2 worldmen

в общем, его надо устанавливать, например, в обработчике OnCreate формы, на которой находится CheckListBox1

← →
worldmen © (2006-02-09 18:17) [11]

Чето нету обработчика OnCreate в событиях CheckListBox1.

← →
Gero © (2006-02-09 18:21) [12]

> Чето нету обработчика OnCreate в событиях CheckListBox1

Зато у TForm есть.

← →
worldmen © (2006-02-09 18:32) [13]

А что, без разницы в каком OnCreate делать?

← →
Gero © (2006-02-09 18:36) [14]

> worldmen © (09.02.06 18:32)

В данном случае без разницы.

Честно, не понимаю как это сделать. Раньше такого не делал. ????

в инспекторе объектов выбираете форму, идете на закладку Events, клацаете два раза возле надписи OnCreate, появляется заготовка процедуры в редакторе. В этой заготовке пишете

CheckListBox1.Multiselect := true;

P.S. И Вам срочно надо прочесть что-нибудь об основах программирования в Делфи и об объектно-ориентированном программировании (ООП), напрмер, в справке по Делфи

Ошибочку выводит на эту строку (Undeclared identifer:Multiselect ):
CheckListBox1.Multiselect := true;

P.S.: Событиями я умею пользоваться. Но ни разу не изменял приватные св-ва.

у меня, как ни странно, ошибочки нет. текст ниже

> Но ни разу не изменял приватные св-ва

вовсе оно и публичное, правда делфи у меня 7-й

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class(TForm) CheckListBox1: TCheckListBox; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin CheckListBox1.MultiSelect := true; end; end.

Черт его знает, что там в D5, может он там и в protected сидит у предка, не имею возможности проверить. Но ничто не мешает проверить тебе самому.

Ладно, дома попробую на D7.

Выбор в TCheckListBox-е выбранных строк Найти похожие ветки