mensagem de erro por falta de valor no TEdit
tenho um TEdit que faz parte de uma conta... mas se o usuário não informar um valor, da uma mensagem de erro e trava o programa..
devo informar o usuário da falta do valor, e dar o setfocus no TEdit
como faço isso?
obrigado antecipadamente...
devo informar o usuário da falta do valor, e dar o setfocus no TEdit
como faço isso?
obrigado antecipadamente...
Adelor Silva
Curtidas 0
Respostas
Jujan
18/12/2005
coloque no evento on exit da edit o seguinte código
if edit1.text=´´ then
begin
showmessage(´obrigatorio a digitação´)
edit1.setfocus;
end;
Porém existe outras maneiras de tratar esse tipo de erro se esse código não resolver envie outra mensagem que eu envio o código de tratamento completo.
Espero q ajude.
if edit1.text=´´ then
begin
showmessage(´obrigatorio a digitação´)
edit1.setfocus;
end;
Porém existe outras maneiras de tratar esse tipo de erro se esse código não resolver envie outra mensagem que eu envio o código de tratamento completo.
Espero q ajude.
GOSTEI 0
Adelor Silva
18/12/2005
não funcionou lamento... este é o procedimento que estou utilizando..
procedure TPagPrincipal.Button2Click(Sender: TObject);
begin
kgch := StrToFloat(Edit4.Text);
qtdch := kgch / resultKg;
Label10.Caption := FormatFloat(´#,0,00´, kgch)+ ´ Kg´;
Label12.Caption := FloatToStr(trunc (qtdch)) + ´ Chapas´;
end;
procedure TPagPrincipal.Button2Click(Sender: TObject);
begin
kgch := StrToFloat(Edit4.Text);
qtdch := kgch / resultKg;
Label10.Caption := FormatFloat(´#,0,00´, kgch)+ ´ Kg´;
Label12.Caption := FloatToStr(trunc (qtdch)) + ´ Chapas´;
end;
GOSTEI 0
Nadai_
18/12/2005
*coloque o código onde for preciso a validação*
if Edit.Text = ´´ then begin Edit.SetFocus; raise Exception.Create(´Informar o valor no Edit´); end;
GOSTEI 0
Adelor Silva
18/12/2005
lamento meus amigos... mas não funcionou... tentei fazer um
teoricamente não seria somente colocar...
if edit1.text = ´ ´ then
begin
showmensage (´digite o valor´);
edit1.setfocus;
end;
teoricamente não seria somente colocar...
if edit1.text = ´ ´ then
begin
showmensage (´digite o valor´);
edit1.setfocus;
end;
GOSTEI 0
Marcio.theis
18/12/2005
Quais são os eventos que vc tem sobre este TEdit ???
GOSTEI 0
Adelor Silva
18/12/2005
eu preciso de uma solução pra forçar o cliente a digitar os números nos campos obrigatórios... se ele não digitar, o cursor deverá retornar ao TEdit...
este é um exemplo do que eu preciso...
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
end.
este é um exemplo do que eu preciso...
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
end.
GOSTEI 0
Marcio.theis
18/12/2005
Vc tem alguma coisa no evento OnChange, OnEnter, OnExit, OnKeyDown ou OnKeyPress do seu TEdit ???
GOSTEI 0
Adelor Silva
18/12/2005
ta tudo limpo lá... todo evento esta no botão...
GOSTEI 0
Xandyr
18/12/2005
[quote:fe65a6754f=´Adelor da Silva´]eu preciso de uma solução pra forçar o cliente a digitar os números nos campos obrigatórios... se ele não digitar, o cursor deverá retornar ao TEdit...
este é um exemplo do que eu preciso...
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
end.[/quote:fe65a6754f]
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
if Edit1.Text = ´´ then O Trim Remove espaços em branco
begin
Edit1.SetFocus;
ShowMessage(´Digite o valor 1´);
exit;
end;
if Trim(Edit2.Text) = ´´ then // O Trim Remove espaços em branco
begin
Edit2.SetFocus;
ShowMessage(´Digite o valor 2´);
exit;
end;
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
este é um exemplo do que eu preciso...
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
end.[/quote:fe65a6754f]
procedure TForm1.Button1Click(Sender: TObject);
var
num1, num2, result : real;
begin
if Edit1.Text = ´´ then O Trim Remove espaços em branco
begin
Edit1.SetFocus;
ShowMessage(´Digite o valor 1´);
exit;
end;
if Trim(Edit2.Text) = ´´ then // O Trim Remove espaços em branco
begin
Edit2.SetFocus;
ShowMessage(´Digite o valor 2´);
exit;
end;
num1 := StrToFloat(Edit1.Text);
num2 := StrToFloat(Edit2.Text);
result := num1 / num2;
Label1.Caption := FloatToStr(result);
end;
GOSTEI 0
Xandyr
18/12/2005
Outra coisa, não use a palavra [b:31b5ea7a2b]result[/b:31b5ea7a2b], ela utilizada para retornar valores de funções.
GOSTEI 0
Adelor Silva
18/12/2005
muito obrigado minha gente... valeu as dicas...
inclusive esta do ´ result ´
muito obrigado mesmo...
inclusive esta do ´ result ´
muito obrigado mesmo...
GOSTEI 0