![]() |
ayuda con los botones de desplasamiento
holaa soy nuevo aca en este foro y quisiera que me ayudaran con un problema que tengo en la escuela con delhi 6 el caso es que tengo 4 bitbtn y quiero programarlos para que tengan la función de desplazamiento lo que pasa es que los botones deven tener la misma función que los cuatro primeros del DBNavigator
saludos y espero y me puedan ayudar con este problemita |
En cada botón puedes llamar a los métodos correspondientes de tu DataSet (TTable, TQuery). Next, Prior, First y Last.
Revisa la yuda sobre esos métodos. |
Cita:
|
No es sólo invocar a los métodos para recorrido del dataset, también los botones deberían deshabilitarse si no hay registros, el de "inicio" debería deshabilitarse si el puntero está en el primer registro, etc.
Una forma cómoda de lograr eso es usando el componente TActionList, en este caso se debe crear una "acción estándar" y dentro de las distintas variantes que ofrece el componente, seleccionar las del tipo "Dataset". Luego asocias la acción del componente (el botón, en este caso) a la acción tipo "Dataset" que corresponda y que ya tengas definida dentro del componente TActionList. Saludos ! |
Cita:
|
Cita:
procedure Trenta.BitBtn3Click(Sender: TObject); var posicion1:boolean; begin adotable1.prior; posicion1:=true; if posicion1 then begin BitBtn3.enabled:=TRUE; end; BitBtn4.enabled:=true; BitBtn2.enabled:=true; BitBtn1.enabled:=true; end; se mueve pero no se como aser qe se desactive el boton cuando este en el primer registro o cuando este en el ultimo |
Cita:
Cabe mencionar que lo mejor es que uses un componenteTActionList tal como te ha indicado el amigo rretamar, ya que éste componente ya te lo hace todo sin que estés programando nada.;) Saludos...;) |
| La franja horaria es GMT +2. Ahora son las 18:38:42. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi