OnButtonClick

[Kitty]

Читаю официальный PDF Mobile Tutorials от Embarcadero. Примеры из него не работают в Берлине. Как правильно?

void __fastcall TForm1::ListView1ButtonClick(TObject * const Sender, TListItem * const AItem,
		  TListItemSimpleControl * const AObject)
{
 ShowMessage(AItem->Text + " " + AItem->ButtonText + " is clicked.");
}

[bcc32 Error] Unit1.cpp(20): E2316 'Text' is not a member of 'TListItem'
[bcc32 Error] Unit1.cpp(20): E2316 'ButtonText' is not a member of 'TListItem'

Спасибо.

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

не знаю как такое делается на C++, но в Delphi так

ShowMessage(AItem.Text + ' ' + TListViewItem(AItem).ButtonText + ' is clicked');

 

[Andrey Efimov]

Может быть вот так (!Berlin!):

на С++

AItem->Objects->TextButton->Text = 'Test';

на Делфи

AItem.Objects.TextButton.Text := 'Test';

 

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

А разве TListItem хранит Objects?

Сейчас нет Делфи проверить 

[Andrey Efimov]

Ага, не обратил внимания. Тогда только ваш способ.

Получается косяк в справке, т.к. там написано

procedure TForm1.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListViewItem; const AObject: TListItemSimpleControl);
begin
   ShowMessage(AItem.Text + ' ' +AItem.ButtonText + ' is clicked.');
end;

 

т.е. мой способ был бы рабочим если бы в событии приходил TListViewItem, а не TListItem.

 

p.s. Пруф на справку: http://docwiki.embarcadero.com/RADStudio/Seattle/en/Mobile_Tutorial:_Using_LiveBindings_to_Populate_a_ListView_%28iOS_and_Android%29#Step_5:_Adding_the_onButtonClick_Event_Handler

[krapotkin]

в берлине немного поменялся ListView

в частности, у ListItemDrawable пропал Owner, а я его использовал

зато починили ItemIndex в ItemClickEx и заодно добавили там пару параметров в Render, из-за чего пришлось опять-же переписывать своих наследников TListItemDrawable

Изменено 23 мая, 2016 пользователем krapotkin

[Kitty]

Спасибо, работает.

void __fastcall TForm1::ListView1ButtonClick(TObject * const Sender, TListItem * const AItem,
		  TListItemSimpleControl * const AObject)
{
 ShowMessage(static_cast< TListViewItem * >(AItem)->Text + " " +
             static_cast< TListViewItem * >(AItem)->ButtonText + " is clicked.");
}

 

[Andrey Efimov]

Багу завёл.