LabeledEdit.onEnter <-- ayuda

[Dr.Bizarre]

al terminar de tipear caracteres en un TEdit o en TLabeledEdit, quiero presionar enter y llame a un procedimiento:

Código Delphi [-]
procedure TForm1.cambio(Sender: TObject);
begin

  a:=StrToInt(LabeledEdit1.Text);
  Label1.Caption:=IntToStr(a);
  LabeledEdit1.Text:='';
  LabeledEdit1.Visible:=false;
  LabeledEdit2.Visible:=true;
  
end;

cuando lo cargo en el evento OnEnter del TLabeledEdit , todo parece que lo cargara en el OnActivate de la forma.

alguna sugerencia ?

[marcoszorrilla]

Suponiendo que utilices un Tedit, pon el código pertinente en el evento OnKeyDown:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 13 then
   showMessage('Pulsó Enter');
end;

De todas maneras te recomiendo en las conversiones utilizar un:

Código Delphi [-]
Try
a:=StrToInt(LabeledEdit1.Text);
Except
ShowMessage('Formato de número incorrecto.');
end;

Ya que pueden teclear algún caracter no apto para ser convertido y te arrojaría una excepción.

Un Saludo.

[DarKraZY]

Hola marcoszorrilla,

¿Qué tal si en lugar de poder provocar una excepción, utilizase la función "TryStrToInt"?

Código Delphi [-]
var
  a: Integer;
begin
  if not TryStrToInt(LabeledEdit1.Text, a) then
    ShowMessage('Formato de número incorrecto.');