Delphi - [решено] Проблема с кнопкой выделить все

[asacyra]

я использую лист бокс. Он мне показывает результаты, но я все обыскал в интернете, но так и не нашел как к нему прикрутить кнопку или контекстное меню выделить все.

Заранее спасибо.

Вложения

[Расширение png было запрещено, вложение больше недоступно.]

[asacyra]

тоесть

procedure TMainForm.Button5Click(Sender: TObject);

var

i: Integer;

begin

for i:=0 to ListView1.Items.Count-1 do

ListView1.Items.Item.Selected:=true;

end;

[asacyra]

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

[LilLoco]

asacyra, в чем именно проблема?

Для выделения - пройтись по всем элементам и выделить.

[lxa85]

asacyra, вам надо ввести отдельное поле или кнопку, назвать ее "Выделить всё". А по событию Click, Check или любому понравившемуся, создать обработчик, внутри которого поместить цикл, который "пробежится" по всем значениям listbox, и поставит статус checked=true или checked=1(по обстоятельствам).

Кстати, можете попробовать, хоть я и не уверен, ввести обработку нажатых клавиш. Я не знаю, позволяет ли listbox такое делать. И тогда в обработчике Ctrl+A сделать цикл.

[asacyra]

получается код

procedure TForm1.Button3Click(Sender: TObject);

begin

if select=true

then

begin

Listbox1.Checked:=true;

select:=false;

Button3.Caption:='Отменить все';

end

else

begin

Listbox1.Checked:=false;

select:=true;

Button3.Caption:='Выделить все';

end;

end;

[asacyra]

просто у меня экзамен по программированию и я все сделал все работает а с кнопкой этой проблемы

[lxa85]

asacyra, Не понятно, что этот код делает.

Чему равен select? Это глобальная переменная? Почему она используется?



Код:

Код: Выделить всё

Listbox1.Checked:=true;

Нет такого свойства у ListBox'ов!

Прикрепите проект. Можете убрать лишнее, если боитесь за ... "чего-то там".

[asacyra]

это проект взят из delphi sources на основе него я делаю работу. Брал его на основе шаблона посмотреть и понять что как делается

Вложения

free_reg.zip

(21.69 КБ) 0 скачиваний

free_reg.zip

(21.69 КБ) 0 скачиваний

[lxa85]

ListView, а не ListBox.

Свойство Checkboxes определяет отображение индикатора с флажком около каждого элемента списка. Индикаторы можно устанавливать программно или их может изменять пользователь во время выполнения. Тогда узнать программно, установлен ли индикатор в некотором элементе Items, можно проверкой его свойства Checked. Например:

Код:

Код: Выделить всё

for i:=0 to ListView1.Items.Count-1 do
 if ListView1.Items[i].Checked then
   ...;

ListView1.Items.Checked := true;

Взято

здесь