Evento OnEnter

[leogobo]

y para que me deje escribir otros caracteres???

[ecfisa]

Empezado por leogobo

y para que me deje escribir otros caracteres???

Si tu código es como te indicaron:

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

No tendrías que tener problemas en escribir otros caracteres. Hay un condicional y sólo se detiene el ingreso normal de teclado si se cumple que la tecla presionada es Enter.

Si agregaste algo más por favor ponelo para ver por que no te deja escribir.

Saludos.

[leogobo]

Bueno, este es el codigo completo

Código Delphi [-]
procedure TForm1.idKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  ultimo: string;
begin
    if Key = 13 then
      begin
              dbf1.Last;
              ultimo:=dbf1.FieldByName('id').AsString;
              dbf1.First;
       while id.Text <> dbf1.FieldByName('id').AsString do
       begin
         if dbf1.FieldByName('id').AsString=ultimo then
             begin
           break;
             end;
         dbf1.Next;
       end;

  end;
end;

[leogobo]

Ya solucione el problema,

Era por que tenia un TDBEdit en vez de un TEdit. Con el TEdit no hay problemas.

Muchas gracias.