Можно ли программно передать фокус на SearchBox и очистить строку?

[Yarpda]

Собственно вопрос теме.

Не нашел никаких средств управления строкой поиска во встроенном у ListView  SearchBox'e.

Интересует возможность из кода очистить(изменить) строку поиска и передать на нее фокус.

Возможно ли это?

[ruslan]

у листвьюва в private есть FSearchEdit: TSearchBox.

напиши к нему хэлпер и используй

[Alexey Lovchikov]

Используй Helper

uses
  FMX.SearchBox;


type
  TListViewMyHelper = class helper for TListView
  public
    function SearshBox: TSearchBox;
  end;


{ TListViewMyHelper }


function TListViewMyHelper.SearshBox: TSearchBox;
var
  AIdx: Integer;
begin
  for AIdx := 0 to Self.ComponentCount - 1 do
    if Self.Components[AIdx] is TSearchBox then
    begin
      Result := TSearchBox(Self.Components[AIdx]);
      Break;
    end;
end;

Или просто функцию 

function SearshBox(AListView: TListView): TSearchBox;
var
  AIdx: Integer;
begin
  for AIdx := 0 to AListView.ComponentCount - 1 do
    if AListView.Components[AIdx] is TSearchBox then
    begin
      Result := TSearchBox(AListView.Components[AIdx]);
      Break;
    end;
end;

 

Primer.zip

[Yarpda]

Спасибо! Сам бы не догадался до такого.

[ruslan]

проще

 

  TCustomListView_helper = class helper for TCustomListView
    function SearchEdit: TSearchBox;
  end;


{ TCustomListView_helper }

function TCustomListView_helper.SearchEdit: TSearchBox;
begin
  Result:= Self.FSearchEdit;
end;

[Mazzay]

А ещё есть какие-нибудь варианты? C++Builder не поддерживает helper.

[Mazzay]

18 часов назад, Mazzay сказал:

А ещё есть какие-нибудь варианты? C++Builder не поддерживает helper.

Собственно:

for(int i = 0; i < ListView1->ControlsCount; ++i)
	if(dynamic_cast<TControl*>(ListView1->Controls->Items[i])->ClassNameIs("TSearchBox"))
	{
		dynamic_cast<TSearchBox*>(ListView1->Controls->Items[i])->Text = EmptyStr;
		break;
	}