Перейти к содержанию
Fire Monkey от А до Я
  • 0

Как отоловить нажатие на чекбокс в итеме?


gonzales

Вопрос

Доброго времени суток. Собственно вопрос в теме поста. Пишу наследника от TListBoxItem, хочу выполнить процедуру при нажатии на чекбокс, но подходящих событий не наблюдаю. OnClick не приводит к нужному результату.

Есть еще StylesData['check'], который вроде как должен быть TCheckBox, но я не пойму как с ним работать.

 

Ссылка на комментарий

Рекомендуемые сообщения

  • 0

я так пробовал сделать, но почему-то чекбокс вставленный в итем с выравниванием по левому краю перекрывает текст итема, я так и не разобрался, почему это происходит, но нашел процедуру у родного итема - ChangeCheck. Корявенько конечно получилось с точки зрения логики, часть функционала в компоненте, а часть нет, но пока забил

Ссылка на комментарий
  • 0

Потому что текст итема тоже задан компонентом и его нужно найти и сделать ему Margin
либо сделать то же самое - полностью забить на то что там уже есть, оставить их пустыми и сделать все компоненты свои, в коде
и по мне так это самое быстрое и самое управляемое решение ))

Ссылка на комментарий
  • 0

Если происходит множественный выбор тогда так:

procedure TForm9.ListBox1ChangeCheck(Sender: TObject);
var
 i: Integer;
begin
   label1.Text := '';
   for I := 0 to ListBox1.Items.Count - 1 do
      begin
        if ListBox1.ListItems[i].IsChecked then
          begin
            label1.Text := label1.Text + i.ToString + ' ';
          end;
      end;

end;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...