Evento OnEnter

[leogobo]

hola,

quiero que al presionar Enter en un edit, me aparezca un mensaje en el mismo.
Utilizo este codigo:

Código Delphi [-]
procedure TForm1.Edit1Enter(Sender: TObject);
begin
   edit1.Text:='Hola';
end;

Pero apenas le doy clic en el edit1 para poner el cursor aparece el mensaje. Ademas este edit no se deja borrar no editar. No quiero esto. Lo que quiero es cuando le de Enter aparezca el mensaje y que pueda escribir mas cosas.

Gracias

[[maeyanes]]

Hola...

El evento OnEnter en un TEdit no es para cuando presionas la tecla <Enter>, si no para cuando el control recibe el foco del teclado.

Para lo que tu quieres, necesitas usar el evento OnKeyDown del control:

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

Saludos...

[leogobo]

Sale un error que dice : Identifier not found "VK_RETURN".

[leogobo]

ok

VK_RETURN=13 para la tecla ENTER.

Gracias

[[oscarac]]

cambialo por 13

Código Delphi [-]
 
if Key = 13 then
 
...

[leogobo]

y para que me deje escribir otros caracteres???

[ecfisa]

Hola leogobo.

Creo que el equivalente de VK_RETURN para Lazarus en Windows es: Windows.VK_RETURN.

En este enlace explican como asignar valores a los códigos virtuales de teclado según la plataforma sea Windows o Linux: Lazarus

Saludos.

[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.