Ver Mensaje Individual
  #6  
Antiguo 30-07-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita