Ver Mensaje Individual
  #4  
Antiguo 16-04-2018
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 Delphi01.

Cita:
Empezado por Delphi01 Ver Mensaje
DBLookupCombox no tiene el itemindex pero sí tiene la propiedad ListFieldIndex. se puede utilizar ListFieldIndex en mi caso ? Cómo será el código ?
En realidad ListFieldIndex sirve para especificar que campo de la propiedad ListField se va a usar para la búsqueda incremental y no veo como podría ayudarte en este caso.

Pero a ver si ahora entendí lo que buscas y te sirve de este modo:
Código Delphi [-]
procedure LookupComboNextItem(LCB: TDBLookupComboBox);
  procedure VKeyPress(const aKey: Word);
  var
    ti: TInput;
  begin
    ZeroMemory(@ti, SizeOf(ti));
    ti.Itype      := INPUT_KEYBOARD;
    ti.ki.wVk     := aKey;
    ti.ki.dwFlags := 0;
    SendInput(1, ti, SizeOf(ti));
  end;
begin
  LCB.DropDown;
  VKeyPress(VK_DOWN);
  VKeyPress(VK_RETURN);
end;

Ejemplo de uso:
Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  DBLookupComboBox1.SetFocus;
  LookupComboNextItem(DBLookupComboBox1);
end;
Sin embargo, el código solo simula el accionar de un usuario y no elude el echo de que el cursor del TDataSet asociado se desplace.

Saludos
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 16-04-2018 a las 21:38:59.
Responder Con Cita