PDA

Ver la Versión Completa : Edit


yoko
17-06-2006, 22:51:32
Hola mi duda es como hacer que al apretar la tecla enter pase de un edit a otro :confused:

galmacland
17-06-2006, 23:59:49
la utiliza la propiedad del edit setfocus en el evento onkeypress del edit al que te refieres.


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.setfocus;
end;


espero te sirva...

The_Duke
19-06-2006, 04:45:10
otra forma mejor si son varios es

Usamo la propiedad [ tabOrder ] del Edit empesando desde 0 le pones el orden como quieras dandole el numero que quieras

En el formulario (Form) poner la propiedad [ keypreview ] y ponla [ true ]

En el evento [ Onkeypress ] pon esto

IF (key = #13) then
begin
key:=#0
perform (wm_nextdlgtl,0,0);
end;