FMX.ListView.TListViewBase.OnSearchChange
Delphi
property OnSearchChange: TNotifyEvent read FOnSearchChange write FOnSearchChange;
C++
__property System::Classes::TNotifyEvent OnSearchChange = {read=FOnSearchChange, write=FOnSearchChange};
プロパティ
種類 | 可視性 | ソース | ユニット | 親 |
---|---|---|---|---|
event | public | FMX.ListView.pas FMX.ListView.hpp |
FMX.ListView | TListViewBase |
説明
リスト ビュー内の検索ボックスからフォーカスがはずれ、その中身がフォーカスを得て変更された際に発生します。このイベントは、リスト ビューの検索ボックスを実装する TSearchBox の OnChange イベントを公開します。
たとえば次のコード スニペットでは、このイベントでステータスバーのテキストを更新して、指定されたフィルタが適用された後に、リスト内に残された項目の数を表示します。
Delphi
procedure TMainForm.ListViewSearchChange(Sender: TObject);
var
I: Integer;
SearchBox: TSearchBox;
List: TListView;
begin
List := Sender as TListView;
for I := 0 to List.Controls.Count-1 do
if List.Controls[I].ClassType = TSearchBox then
begin
SearchBox := TSearchBox(List.Controls[I]);
Break;
end;
StatusBar.Text := IntToStr(List.Items.Count) + ' list items match ' + QuotedStr(SearchBox.Text) + '.';
end;
C++:
void __fastcall TMainForm::ListViewSearchChange(TObject *Sender)
{
TSearchBox* searchBox;
TListView* list = reinterpret_cast<TListView*>(Sender);
for (int i = 0; i < list->Controls->Count; i++) {
searchBox = dynamic_cast<TSearchBox*>(list->Controls->Items[i]);
if (searchBox) break;
}
MainForm->StatusBar->Text = UnicodeString(list->Items->Count) + " list items match " + QuotedStr(searchBox->Text) + ".";
}