Fórum Apagara um edit quando em outro edit estiver sendo usado #456796

26/09/2013

0

Delphi

Boa tarde!

Queria uma Ajuda para fazer uma código para que quando um edit estiver preenchido e o usuário foi digitar em outro edit o primeiro edit apague.
Não to conseguindo fazer esse teste. podem me ajudar?
Eduardo Mendonça

Eduardo Mendonça

Responder

Posts

26/09/2013

Marcos Oliveira

Olá amigo. No evento "OnChange" do segundo Edit, limpe o primeiro (Edit1.Clear).

Att,

Marcos
Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

me ajuda na logica aqui tem 4 edit's que só um vi ficar preenchido

Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

tipo caso o 1 edit seja preenchido ficaria assim? 
if edit1.stefocus = True then
begin
    edit2.clear;
    edit3.clear
    edit4.clear
end;


ou tem que fazer mais testes ?
Responder

Gostei + 0

26/09/2013

Marcos Oliveira

Deixa eu tentar entender direito. Você tem 4 Edit's, certo? Se você preencher qualquer um dos 4, os outros 3 deverão ser limpos?
Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

+ ou -isso

so que o edit3 e 4 se o3 ou o4 estiver sendo editado apaga 1 e o 2
Responder

Gostei + 0

26/09/2013

Joel Rodrigues

Se os edits 3 ou 4 estiverem sendo editados, os edits 1 e 2 deve ser limpos?
Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

sim isso
pq os edit 3 e 4 são um dateEdit
Responder

Gostei + 0

26/09/2013

Joel Rodrigues

Então no evento OnChange dos edits 3 e 4 você limpa os edits 1 e 2.
Edit1.Clear;
Edit2.Clear;

Se você quiser, pode selecionar os dois (3 e 4) e ativar o evento só uma vez no Object Inspector.
Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

vou teste o evento
Responder

Gostei + 0

26/09/2013

Eduardo Mendonça

Ficou ótimo
procedure TfrmPesquisaProcessos.Edit1Change(Sender: TObject);
begin
  if (  Edit1.Text <> '    ') and
     ((  Edit2.Text <>'    ') or(  Edit3.Text<>'  /  /    ') or
     (  Edit14.Text<>'  /  /    ') ) then
  begin
    Edit2.Clear;
    Edit3.Clear;
    Edit4.Clear;
  end;
end;

procedure TfrmPesquisaProcessos.Edit2Change(Sender: TObject);
begin
  if (Edit2.Text <> '    ') and
     ((Edit1.Text <>'    ') or (Edit3.Text<>'  /  /    ') or
     (Edit4.Text<>'  /  /    ') ) then
  begin
    Edit1.Clear;
    Edit3.Clear;
    Edit4.Clear;
  end;
end;

procedure TfrmPesquisaProcessos.Edit3Change(Sender: TObject);
begin
  if (  Edit3.Text <> '    ') and
     ((  Edit1.Text <> '    ') or (  Edit2.Text<>'    ')) then
  begin
     Edit1.Clear;
     Edit2.Clear;
  end;
end;

procedure TfrmPesquisaProcessos.Edit4Change(Sender: TObject);
begin
  if (Edit4.Text <> '    ') and
     ((Edit1.Text <> '    ') or (Edit2.Text<>'    ')) then
  begin
     Edit1.Clear;
     Edit2.Clear;
  end;
end;
Responder

Gostei + 0

26/09/2013

Joel Rodrigues

Beleza, cara. Que bom que deu certo.
Neste caso, estou concluindo o tópico.
Abraço.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar