Delphi - acceso directo al dbnavigator

   
Vista:

acceso directo al dbnavigator

Publicado por dralion (40 intervenciones) el 28/01/2009 04:36:20
hola amigos queria saber si existe alguna forma de hacer un acceso directo al dbnavigator como por ejemplo despues de terminar un registro no se solo con precior Ctrl G (control G) que guarde los datos antes de hacer clic en el dvnavigatos y nose con Ctrl I que se ingrese un registro nuevo
muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:acceso directo al dbnavigator

Publicado por E.T. (1107 intervenciones) el 28/01/2009 18:58:02
Pues no existe, tienes que crearlo por ti mismo, digamos esto:

La propiedad KeyPreview de la form ponla en true, luego en su evento onKeyDown de la form pones esto

if (ssCtrl in Shift)and(key in[ord('g'), ord('G')])
and(DBNavigator1.DataSource.DataSet.State in [dsInsert, dsEdit])then
DBNavigator1.DataSource.DataSet.Post;

para guardar, para insertar algo similar

if (ssCtrl in Shift)and(key in[ord('i'), ord('I')])
and not(DBNavigator1.DataSource.DataSet.State in [dsInsert, dsEdit])then
DBNavigator1.DataSource.DataSet.append;

y así puedes seguir probando más
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:acceso directo al dbnavigator

Publicado por dralion (40 intervenciones) el 02/02/2009 12:20:11
muchas gracias ya lo probamos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar