Fórum scroll do mouse e dbgrid falha. #449335
24/07/2013
0
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;
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
Curtir tópico
+ 0
Responder
Posts
30/07/2013
Osmar
Amigos alguma dica? Já tentei várias dicas da net, continua a falha no scroll.
Responder
Gostei + 0
30/07/2013
Francisco Macário
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.
1 2 3 4 5 6 | if AnsiUppercase(DmDados.IBQryTurmaGRAU.AsString) = AnsiUppercase('EJA - 1º PERÍODO - Ensino Médio') thenbeginendelsebeginend; |
Espero que ajude.
Responder
Gostei + 0
31/07/2013
Osmar
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)