DBNavigator con TEdit/TCombobox

[ecfisa]

Empezado por koalasoft

...
Usar el DBNavigator o crear boton personalizado de este que haga la misma función pero usando Tedit y tambien ComboBox.
...

Hola koalasoft.

Se pueden crear botones para ofrecer la misma funcionalidad del TDBNavigator.
Pero deberías explicar que es lo que deseas lograr, por que de otro modo no veo la relación entre un TDBNavigator y un TEdit o un TComboBox...

Saludos

[[Caral]]

Hola

Empezado por ecfisa

.....
no veo la relación entre un TDBNavigator y un TEdit o un TComboBox...

Son componentes amigo, son componentes.....
Saludos

[ecfisa]

Empezado por Caral

Son componentes amigo, son componentes.....

¡ Cómo se me pudo escapar eso !

Saludos

[koalasoft]

En si lo que quiero es que al darle al boton personalizado (siguiente) como el que tiene el DBNavigator pero creado por mi .. los datos de mi tabla se muestren en un Edit o Combobox, tal cual es como se hace con los DBEdit DBCombobox conectados directamente al DBNavigator,.. espero haberme explicado

Claro esta que igual necesito para los botes, tras, ultimo y primer registro.

[ecfisa]

Hola koalasoft.

Ahora sí está entendido

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  btnPrimero.Tag  := 1;
  btnProximo.Tag  := 2;
  btnAnterior.Tag := 3;
  btnUltimo.Tag   := 4;
end;

// Asignado al evento OnClick de los 4 botones
procedure TForm1.ButtonsOnClick(Sender: TObject);
begin
  with TButton(Sender) do
    case Tag of
      1: tuDataSet.First;  // ir al primer registro
      2: tuDataSet.Next;   // ir al siguiente registro
      3: tuDataSet.Prior;  // ir al registro anterior
      4: tuDataSet.Last;   // ir al último registro
    end;
end;

// Mostrar campos en los Edits o ComboBox
procedure TForm1.tuDataSetAfterScroll(DataSet: TDataSet);
begin
  // (Si los campos fuesen de otro tipo, usar la conversión correspondiente)
  Edit1.Text     := tuDataSetCampo1.AsString;  
  ComboBox1.Text := tuDataSetCampo2.AsString;
end;
...

Saludos.

[koalasoft]

Una duda .. este procedimiento ...

Código Delphi [-]
// Asignado al evento OnClick de los 4 botones
procedure TForm1.ButtonsOnClick(Sender: TObject);
begin
  with TButton(Sender) do
    case Tag of
      1: tuDataSet.First;  // ir al primer registro
      2: tuDataSet.Next;   // ir al siguiente registro
      3: tuDataSet.Prior;  // ir al registro anterior
      4: tuDataSet.Last;   // ir al último registro
    end;
end;

Lo comento por que el parametro ButtonsOnClick no me aparece y me marca [Error] Undeclared identifier: 'ButtonsOnClick' al colocarlo..

Hay que crearlo tal cual o ese codigo va en CADA evento OnClick de cada boton (BtnUltimo, BtnProximo.... etc) ?

[ecfisa]

Hola.

En tiempo de diseño, aprieta la tecla Ctrl y haciendo click izquierdo del mouse (sin soltarlo) selecciona los cuatro Edits, levanta el botón del mouse. El Object Inspector dirá: "4 items selected" indicando que los 4 botones quedaron seleccionados.

Desde el mismo Object Inspector hace click en la pestaña Events y doble click sobre el evento OnClick. El evento se asignará a los 4 botones y por defecto se llamará Button1Click.

Podes dejar el nombre por defecto o cambiarlo por uno más significativo como lo hice en el ejemplo anterior.

Saludos.