Pessoal, estou fazendo um programa com um form de busca, quando o usuario clica em 'buscar" e o campo de busca esta vazio ele retorna uma mensagem informando que o usuario deve preencher o campo busca para clicar no botao "buscar", porem, este aviso esta permanecendo no form, mesmo depois que o usuario faz novas buscas.. como faço para limpar esse aviso depois de que ele seja dado? (o aviso é dado no label4)
Essa é a parte do codigo:
procedure TForm1.Button1Click(Sender: TObject);
var
txt: TStringList;
i: integer;
begin
if ( edit1.Text <> '' ) then begin
txt := TStringList.Create;
txt.LoadFromFile(ExtractFilePath(ParamStr(0))+'carteiras.txt');
for i:=0 to txt.Count -1 do begin
if Pos(edit1.Text,txt[i])>0 then begin
label1.caption := 'NÃO LIBERADA';
txt.free;
exit;
end;
end;
txt.Add(edit1.Text);
txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt');
label1.caption := ' LIBERADA';
Label3.Caption := intToStr( txt.count );
txt.Free;
Edit1.Clear;
Edit1.SetFocus;
end else begin
label4.caption := 'Atenção: Digite uma palavra antes de efetuar a busca.';
Edit1.SetFocus;
end;
end;
Pergunta
silvanirms
Pessoal, estou fazendo um programa com um form de busca, quando o usuario clica em 'buscar" e o campo de busca esta vazio ele retorna uma mensagem informando que o usuario deve preencher o campo busca para clicar no botao "buscar", porem, este aviso esta permanecendo no form, mesmo depois que o usuario faz novas buscas.. como faço para limpar esse aviso depois de que ele seja dado? (o aviso é dado no label4)
Essa é a parte do codigo:
Abs
Editado por silvanirmsLink para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.