Listbox

[SnowSin]

Подскажите проверку на то что в Листбоксе нету элементов? Точнее, если там ничего нет то кнопка включается

[mihali4]

Листбокс состоит из итемсов (строк), соответственно у массива итемсов есть свойство "количество".
Вот это свойство и проверяйте на 0...
Исчерпывающую информацию получайте через F1.

[SnowSin]

Ну вот смотри, я делаю что если в листбоксе есть что то то кнопка выключена, если там нефига нет то кнопка включена
Событие Листбокс клик, тобишь в зависимости от записи в листбоксе1, у меня поялвяются или непоялвяются записи в лист боксе 2.
Теперь у меня идет проверка
(Ну можно через else, но пока так делаю)
If ListBox2.Items.Count>0 then button7.Enabled:=false;
If ListBox2.Items.Count<0 then button7.Enabled:=true;
И в итоге на проверке где кнопка вырубается, тобишь есть итемы, он кнопку вырубает, и даже если выберу строку в листбоксе1 которая добовляет ничего в листбокс2(тобишь он пуст) кнопка все равно не включена..

Помоги плиз, я в делфи шарю не очень..

[shock-in]

If ListBox2.Items.Count>0 then button7.Enabled:=false;
If ListBox2.Items.Count=0 then button7.Enabled:=true;

[program123]

есть такой компонент Timer находится он на вкладке System напиши в нём

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If ListBox2.Items.Count=0 then button7.Enabled:=true
else Button7.Enabled:=false;
end;

он автоматически будет включать и выключать кнопку в зависимости от того есть в списке что то или нет

[SnowSin]

Всем спасибо) Решил проблему подругому, собствено я, убыток никчемный, начал не правильно, достаточно было в самом начале события он клик присвоить то что кнопка включена, ну и потом, у меня в самом конце, у меня идет условие на ее выключение)

P.S. Oo щас с таймером попробую, мы его еще не проходили(1 год делфи изучаю, ну точнее первые 2 месяца), просто интересно

[SERG1980]

Сообщение от SnowSin

Всем спасибо)
P.S. Oo щас с таймером попробую, мы его еще не проходили(1 год делфи изучаю, ну точнее первые 2 месяца), просто интересно

Я бы вместо таймера посоветовал использовать компонент ApplicationEvents и в событии OnIdle этого компонента прописал

procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
begin
 button7.Enabled:=ListBox2.Items.Count>0;
Done:=true;
end;