Como simular o evento CLICK no DBLOOKUPCOMBOBOX ?

24/05/2008

4

Boa Noite !!

Estou precisando simular que o componente DBLOOKUPCOMBOBOX seja clicado por outro evento.

Localizar o último registro lançado eu já consigo com o KEYVALUE agora preciso simular um CLIQUE.

Estou usando Delphi 7.

Alguem sabe como fazer isto ?

Obrigado


Responder

Posts

24/05/2008

Dbergkamps10

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

Att
Dalton


Responder

27/05/2008

Brunodsr

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.


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

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


Responder