| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
renan.sanches
Novato
Registrado: Segunda-Feira, 4 de Abril de 2011
Mensagens: 59
|
 Enviada: Dom Out 13, 2013 1:06 pm Assunto: Limpar SearchEdit do ListView - Android DELPHI XE5 |
 |
|
Não sei se eu não estou enxergando, mas não achei nada q pudesse manipular esta propriedade do ListView.
Mesmo quando ativa e desativa a propriedade SearchVisible não apaga o que esta escrito.
Alguém pode me ajudar?? |
|
| Voltar ao Topo |
|
 |
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Seg Out 14, 2013 1:39 pm Assunto: Re: Limpar SearchEdit do ListView - Android DELPHI XE5 |
|
|
infelizmente a embarcadero/mvps ainda n fizeram muitos exemplos
estava conversando com um desenvolvedor e nos chegamos a conclusao q o jeito vai ser esperar por exemplos 
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
CesarRocha
Mestre
Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP
|
| Enviada: Ter Out 15, 2013 1:33 pm Assunto: |
|
|
Nossa, nem tinha visto novo fórum pra android. haha
Ah, você consegue resolver isso fácil. Pense que o objeto TSearchBox está contido dentro do TListView, você pode usar a propriedade ComponentsCount e Components pra acessar ele e assim fazer o que for necessário, no caso, apagar o conteúdo.
Fiz um exemplinho besta aqui usando class helper, você pode fazer por herança também (acho melhor...)
Eis ai,
| Código: | unit ListViewHelper;
interface
uses
FMX.ListView,
FMX.Edit;
type
TListViewHelper = class helper for TListView
procedure ClearSearchBox();
end;
implementation
{ TListViewHelper }
procedure TListViewHelper.ClearSearchBox;
var
sb: TSearchBox; //melhorar a visualização, mas pode ser feito sem usar variavel ((Self.Components[i] as TSearchBox).text := ''))
i: Integer;
begin
sb := nil;
for i := 0 to Self.ComponentCount-1 do
if (Self.Components[i] is TSearchBox) then
begin
sb := Self.Components[i] as TSearchBox;
break;
end;
if (sb <> nil) then
sb.Text := '';
end;
end.
|
Declare a unit a onde precisa usar e assim o objeto TListView já terá o novo método. Exemplo de uso:
| Código: |
procedure TForm9.Button1Click(Sender: TObject);
begin
ListView1.ClearSearchBox;
end; |
~bye |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
