Como simular o evento CLICK no DBLOOKUPCOMBOBOX ?

Olá,
Sinceramente, não entendi.... :lol: :lol: :lol:
Seja mais específico.

Att
Dalton

Bom.. Apesar de achar melhor vc chamar o evento direto, ta aí a rotina p/ levar o mouse para o teu componente e clicar nele:


procedure Teste; // Chame essa procedure no momento desejado
var
Pt : TPoint;
begin
Application.ProcessMessages;
Pt.x := SEUCAMPO.Left + (SEUCAMPO.Width div 2);
Pt.y := SEUCAMPO.Top + (SEUCAMPO.Height div 2);
Pt := ClientToScreen(Pt);
Pt.x := Round(Pt.x * (65535 / Screen.Width));
Pt.y := Round(Pt.y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pt.x, Pt.y, 0, 0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pt.x, Pt.y, 0, 0);
end;

O código é auto-explicativo, mas se tiver dúvidas, não exite em perguntar.

para um DBLookupComboBox, faça:
DBLookupComboBox1.DropDown; // abre a cortina...

e para um ComboBox comum:
SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);