No Encuentreo evento OnKeyPreess

[cloayza]

Puedes usar el evento OnTyping

Existe una diferencia entre ambos eventos, el OnChange se dispara cuando el Control pierde el foco (Se cambia a otro TEdit), en cambio el OnTyping, se dispara cada vez que digitas un caracter en el control...

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
     Label2.Text:='OnChange->'+Edit1.Text;
end;

procedure TForm1.Edit1Typing(Sender: TObject);
begin
     Label1.Text:='OnTyping->'+Edit1.Text;
end;

Espero te ayuda, saludos cordiales

[rmeckbell]

Hola Cloaiza

Suena bien la propiedad OnTyping sin embargo sera capaz de leer la tecla Enter en el teclado de tal manera que pueda
generar un if tecla = enter then..
es que no veo cual serìa el parámetro.

[Caminante]

Empezado por cloayza

Puedes usar el evento OnTyping

Existe una diferencia entre ambos eventos, el OnChange se dispara cuando el Control pierde el foco (Se cambia a otro TEdit), en cambio el OnTyping, se dispara cada vez que digitas un caracter en el control...

Código Delphi [-]procedure TForm1.Edit1Change(Sender: TObject); begin Label2.Text:='OnChange->'+Edit1.Text; end; procedure TForm1.Edit1Typing(Sender: TObject); begin Label1.Text:='OnTyping->'+Edit1.Text; end;

Bueno yo de firemonkey no se practicamente nada. No conocia el evento ontyping pero tampoco se si pueda hacer lo que necesita desde ahi.

En tal caso buscaría el evento onkeydown (Aunque no se si es igual que el de la vcl).

Saludos

[cloayza]

Bueno entonces esto...

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
     case (Key) of
        vkReturn: label1.Text:='Return';
        vkBack:   label1.Text:='Backspace';
        vkTab:    label1.Text:='Tab';
     else
         label1.Text:='KeyChar...'+KeyChar;
     end;
end;

Saludos cordiales