Grid de Consulta x Mouse

[Gilberto]

Olá Suporte.

Nas versões anteriores era possivel atravez do Botão do meio do mouse (rodinha-wheel) navegar pelos registros da grid.

Na 6.0 o usuario só consegue navegar nos registros constante na tela e não mais do inicio ao final.

Como corrigir isso, já que os usuários não abrem mão dessa facilidade.

Att
Gilberto
Imprime Informática

[Gilberto]

Olá, Alguem tem alguma solução para o problema ?

Att
Gilberto

[Suporte]

Olá Gilberto,

Esta função chamada de mouse wheel support ( Intellimouse ) passou a ser suportada pelo compilador Delphi
a partir da versão D2006. Esse comportamento não depende da versão do Xmaker, mas do compilador.

Não possuimos uma rotina de tratamento para versão inferior, no delphi 5 ao 7, a mesma não existe.

Vamos passar dois links de fóruns que implementam tais rotinas para versão 5 a 7:


http://www.devmedia.com.br/post-9573-Co ... BGrid.html

e

http://delphi.about.com/cs/adptips2002/ ... 1102_3.htm

Desta forma o funcionalidade existirá para essas versões do Delphi.

Gratos pela atenção, conte sempre conosco!

[Gilberto]

Olá Suporte,
Obrigado pela pronta resposta.

Mas acabei de compilar um sistema no Xmaker 4 e no Xmaker 5 com o delphi 7 e o recurso funciona perfeitamente.

Acho que pode ser alguma funcção incorporada as Versões anteriores que fazem o recurso funcionar e na atual não.

Abraço
Gilberto

[Gilberto]

Olá, realmente a rotina é nova e nós que incluimos no form Princ versões anteriores.

Para quem quiser usar segue dicas :

Inclusões no Form principal....

private
{ Declarações Privadas }
{10-Início do Bloco Modular. Modificações não serão preservadas}
{99-Final do Bloco Modular. Modificações não serão preservadas}
procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean); // <---
protected
{ Declarações Protegidas }
public
{ Declarações Públicas }
ErronoSistema: Boolean;
procedure FechaJanelasFilhas;
end;
.
..
RelIPTUimoveis,
{99-Final do Bloco Modular. Modificações não serão preservadas}
Acesso, Abertura;

var
MetodoOriginal: TMessageEvent; // <----

.
.
procedure TFormPrincipal.FormCreate(Sender: TObject);
begin
MetodoOriginal := Application.OnMessage;
Application.OnMessage := OnMessageOwn;end;

procedure TFormPrincipal.OnMessageOwn(var Msg: TMsg; var Handled: Boolean);
var i: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
if Assigned(MetodoOriginal) then
MetodoOriginal(Msg, Handled);
end;.
.
.