scroll do mouse e dbgrid falha.

Delphi

24/07/2013

Pessoal, o código abaixo só funciona no click do mouse ou nas setas de direção, no scroll funciona, mas as vezes falha.

procedure TFrmCadTurDisc.dbgTurmaMouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if DmDados.IBQryTurmaGRAU.AsString = 'EJA - 1º PERÍODO - Ensino Médio' then
begin
PanelPeriodo.Visible := true;
Panel7.Visible := false;
end
else
begin
PanelPeriodo.Visible := false;
Panel7.Visible := true;
end;
end;

procedure TFrmCadTurDisc.dbgTurmaMouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
if DmDados.IBQryTurmaGRAU.AsString = 'EJA - 1º PERÍODO - Ensino Médio' then
begin
PanelPeriodo.Visible := true;
Panel7.Visible := false;
end
else
begin
PanelPeriodo.Visible := false;
Panel7.Visible := true;
end;
end;
Osmar

Osmar

Curtidas 0

Respostas

Osmar

Osmar

24/07/2013

Amigos alguma dica? Já tentei várias dicas da net, continua a falha no scroll.
GOSTEI 0
Francisco Macário

Francisco Macário

24/07/2013

Amigos alguma dica? Já tentei várias dicas da net, continua a falha no scroll.


Olá.

O ideal é sempre forçar a comparação, usando por exemplo AnsiUppercase.


if AnsiUppercase(DmDados.IBQryTurmaGRAU.AsString) = AnsiUppercase('EJA - 1º PERÍODO - Ensino Médio') then
begin
end
else
begin
end;


Espero que ajude.
GOSTEI 0
Osmar

Osmar

24/07/2013

Macário,
As vezes funciona as vezes não, tentei também nos eventos OnMouseWheelUp e OnMouseWheelDown e o erro é o mesmo.

procedure TFrmCadTurDisc.dbgTurmaMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if AnsiUppercase(DmDados.IBQryTurmaGRAU.AsString) = AnsiUppercase('EJA - 1º PERÍODO - Ensino Médio') then
begin
PanelPeriodo.Visible := true;
end
else
begin
PanelPeriodo.Visible := false;
end;
end;
GOSTEI 0
POSTAR