Avanzar Edits con Enter
Tengo el siguiente codigo para que se pueda avanzar en los diferentes edits mediante el enter y no el tab.
[code]
procedure TfIngreso.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 and ( ActiveControl <> TBitBtn ) then
begin
SelectNext(ActiveControl as tWinControl, True, True );
Key := #0;
end;
end;
Usando D6 no me compila en las palabras en negrita, alguna sugerencia?
Gracias
|