Apagara um edit quando em outro edit estiver sendo usado

Delphi

26/09/2013

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

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

26/09/2013

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

Att,

Marcos
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

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

GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

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 ?
GOSTEI 0
Marcos Oliveira

Marcos Oliveira

26/09/2013

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?
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

+ ou -isso

so que o edit3 e 4 se o3 ou o4 estiver sendo editado apaga 1 e o 2
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

26/09/2013

Se os edits 3 ou 4 estiverem sendo editados, os edits 1 e 2 deve ser limpos?
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

sim isso
pq os edit 3 e 4 são um dateEdit
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

26/09/2013

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.
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

vou teste o evento
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

26/09/2013

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;
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

26/09/2013

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