Código Delphi [-] procedure dbLook.OnEnter(Sender: TObject); begin if VarIsNull(dbLook.keyValue) then PostMessage(dbLook.handle, WM_KEYDOWN, VK_DOWN, 0); end;
procedure dbLook.OnEnter(Sender: TObject); begin if VarIsNull(dbLook.keyValue) then PostMessage(dbLook.handle, WM_KEYDOWN, VK_DOWN, 0); end;