Hacer evento Tab en TEdit

[[egostar]]

Empezado por JELIRM

Tu mencionabas dos Soluciones mas una que es similar a la que estoy exponiendo aqui y la otra como seria?????, Es de evaluar talvez me convenga mas la otra.

Bueno, hasta aqui hemos visto el uso de presionar la tecla TAB dentro de la forma, la otra opción que te dije es que a cada TEdit le coloques su propia rutina, es decir:

Código Delphi [-]
 
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 9 then begin // La tecla TAB tiene el código ASCII 9
     ShowMessage('Tecla TAB presionada!!!');
   end;
end;
 
procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
   if Key = 13 then begin // La tecla ENTER tiene el código ASCII 13
     ShowMessage('Tecla ENTER presionada!!!');
   end;
end;

Saludos