Hola.
Cita:
Empezado por Delphi01
...
yo no me importa si desplace o no lo importante cuando haga click en un button por ejemplo si esta mostrando 'X1' pasa amostrar 'X2' y asi ...next ...
saludos ..
|
Entonces el código anterior hace exactament lo que buscas.
Si no te importan los desplazamientos, el siguiente método es una alternativa mas simple:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
DS: TDataSet;
begin
DS := DBLookupComboBox1.ListSource.DataSet;
DS.Next;
DBLookupComboBox1.KeyValue := DS.FieldValues[DBLookupComboBox1.KeyField];
end;
Saludos