ItemAppearance Button click

[x11]

Добавил TTextButtonObjectAppearance. А как выполнить click/tap?

Предполагается, что будет 2-3 кнопки с разными процедурами.

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

 

Вопрос в догонку. А в

[x11]

Чтобы не плодить похожие темы, задам ещё вопрос по кнопке типа TGlyphButtonObjectAppearance.

Как в неё вставить картинку, и опять же, как добраться до обработчика нажатия?

Цель: по нажатию на кнопку нужно вызвать некую форму редактирования данной записи, на которой тапнул пользователь.

[Равиль Зарипов (ZuBy)]

вот так это делается

LV_ClickEx.zip

[x11]

Может быть Вы не поняли сути проблемы? Попытаюсь ещё раз.

Интересует не щелчок по Item, а именно по той или иной кнопке, которых может быть несколько у Item.

У DinamicAppearance есть 2 вида кнопок. Но ни в справке, ни на просторах интернета нет примеров и описания. Ни у самих кнопок, ни у Item, ни у ListView не нашёл возможности обработать клик/тап именно по кнопке, а не по Item`у.

Допустим, на Item лежит 2 кнопки:

1. Кнопка "Удалить" типа TGlyphButtonObjectAppearance

2. Кнопка "Редактировать" типа TTextButtonObjectAppearance.

Как обработать отдельно клики этих кнопок?

[Равиль Зарипов (ZuBy)]

1 минуту назад, x11 сказал:

Может быть Вы не поняли сути проблемы? Попытаюсь ещё раз.

Интересует не щелчок по Item, а именно по той или иной кнопке, которых может быть несколько у Item.

У DinamicAppearance есть 2 вида кнопок. Но ни в справке, ни на просторах интернета нет примеров и описания. Ни у самих кнопок, ни у Item, ни у ListView не нашёл возможности обработать клик/тап именно по кнопке, а не по Item`у.

Допустим, на Item лежит 2 кнопки:

1. Кнопка "Удалить" типа TGlyphButtonObjectAppearance

2. Кнопка "Редактировать" типа TTextButtonObjectAppearance.

Как обработать отдельно клики этих кнопок?

я то как раз понял, а вы видимо нет

Клик был по Item'y, не задевая другие объекты

if ItemObject = nil then
begin
  ShowMessage('Click to Item');
  exit;
end;

Как можно различить объекты в Item'e?

ShowMessage('Name: ' + ItemObject.Name + sLineBreak + 'Text: ' + (ItemObject as TListItemText).Text);

[x11]

аааа, ItemObject - это и есть тот или иной объект, лежащий внутри Item`а?

[Равиль Зарипов (ZuBy)]

1 минуту назад, x11 сказал:

аааа, ItemObject - это и есть тот или иной объект, лежащий внутри Item`а?

да

каждый объект имеет уникальное имя которое вы задаете в редакторе

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

[x11]

1. А почему при загрузке ListView происходит clickEx 2 раза?

2. При клике по кнопке происходит clickEx 2 раза.

Как от этого избавиться?

[Равиль Зарипов (ZuBy)]

4 минуты назад, x11 сказал:

1. А почему при загрузке ListView происходит clickEx 2 раза?

2. При клике по кнопке происходит clickEx 2 раза.

Как от этого избавиться?

Приложи проект

[x11]

ссылка на проект

тынц

[Равиль Зарипов (ZuBy)]

3 минуты назад, x11 сказал:

ссылка на проект

тынц

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

[x11]

сделал с использованием прототипа TPrototypeBindSource.

тынц

 

Но проблема в том, что при открытии PrototypeBindSource1 ListView пустой почему-то. Поэтому не могу воспроизвести эту проблему

1 час назад, x11 сказал:

1. А почему при загрузке ListView происходит clickEx 2 раза?

 

а вторая проблема с повторным кликом воспроизводится

Изменено 2 апреля, 2017 пользователем x11