ayudita con DBLookupComboBox
 

Amigos de Club Delphi

Estoy aprendiendo a usar las componentes de base de datos y tengo un pequeño inquietud.
Estoy usando un DBLookupComboBox con datasource y una query, todo bien. Lo que me gustaría seria que cuando se ejecuta la consulta automáticamente me muestre el en DBLookupComboBox el primer resultado de la lista.

Espero haber sido claro.

Saludos cordiales a todos.

Juan

Quizás algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Open;
DblookUpComboBox1.DropDown;
end;

Un Saludo.

O esta otra algo parecida?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Open;
DblookUpComboBox1.DropDown;
DblookUpComboBox1.SetFocus;
Keybd_Event(Vk_Down,0,0,0);
Keybd_Event(Vk_Down,0,0,0);
DblookUpComboBox1.CloseUp(true);
end;

Un Saludo.