Hola Delphi01.
Cita:
Empezado por Delphi01
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