Analitcs

Pesquisar no conteúdo do blog.atlabs.com.br

domingo, 10 de agosto de 2014

DELPHI - FireMonkey: Clear Search Listview - Apagar Seach Listview (Mobile) - XE6

Reações: 


Essa Unit limpa o Search do ListView, não achei nenhuma propriedade que faça isso.

unit uATLabsClearSearch;

interface

uses
   //Declarar na Uses
   FMX.Edit
  ,FMX.ListView
  ;

type
  TATLabs_ClearSearch = Class helper for TListView
    procedure ClearSearchListView();
  end;

implementation

{ TATLabs_ClearSearch }

procedure TATLabs_ClearSearch.ClearSearchListView;
var
  SearchListView: TSearchBox;
  i: Integer;
begin
  SearchListView := nil;
  //Procura o componente Search da ListView e atribui SearchListView
  for i := 0 to Self.ComponentCount -1 do
  begin
    if (Self.Components[i] is TSearchBox) then
    begin
      SearchListView := Self.Components[i] as TSearchBox;
      break;
    end;
  end;

  //E aqui ele apaga o Search que ele encontrou
  if (SearchListView <> nil) then
    SearchListView.Text := '';
end;

end.


Modo de usar:

//Não esqueça de declarar a Unit na uses
ListView.ClearSearchListView;


Não esqueça dar um feedback utilizando os CheckBox no rodapé do Post

Nenhum comentário:

Postar um comentário

Observação: somente um membro deste blog pode postar um comentário.

Max Gehringer