pasar al siguiente campo con <ENTER>

[zink]

Hola, necesito hacer que en un formuario de llenado, cuando se de &lt;ENTER&gt; me pase al siguiente campo de llenado, o sea usar enter en vez de tab para ir al siguiente en el orden de tabulación.


gracias

[dickldn]

Hola, mira la verdad hace años que no veo nada de Delphi, ademas solo lo vi un par de meses, luego nos cambiaron la curricula, pero creo que es algo como esto

procedure TmiForm.EditnKeypress(Sender: TObject; var Key: Char);
begin
if key = 13 then
Editnn.Setfocus;
end;
end;

No recuerdo si se cerraban los if's con end, pero te aseguro que haciendo unas pequeñasmodificaciones te servira, si tuviera Delphi insalado lo probaría... suerte!!

[akela]

En efecto el concepto es correcto

tu tienes que pescar el ecento onkeypress ahì checas que la tecla sea la numero 13 (un enter) y pones el &quot;focus&quot; en el elemento que quieras

[JavierB]

Hola, zink.

Prueba este código, con él al pulsar &quot;Enter&quot; pasarás al siguiente control en el orden de tabulación.

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key:=#0;
    Perform(CM_DialogKey,VK_TAB,0);
  end;
end;

Saludos,

---------------
Pregunta lo que ignoras y pasarás por tonto 5 minutos.
No lo preguntes y serás tonto toda la vida.

[zink]

Muchas gracia spor su ayuda, estoy probando el codigo, aunque aun no lo he echado a andar pero en eso estoy.

Gracias adickldn voy a probar el codigo y tambien el de JavierB, y gracias a Akela por la idea

:)

[t.i.p.]

Bueno, aquí va otra alternativa:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
SelectNext(Screen.ActiveControl, True, False);
end;

No olvides cambiar la propiedad &quot;KeyPreview&quot; de la forma a &quot;True&quot; para que esto funcione...


Saludos



..-._.-._ReLoAd-._.-._....

[zink]

ok gracias t.i.p.