Possuo uma imagem de fundo em minha aplicação, porém ela dá a impressão de piscar devido o uso de um Ttimer
que a aplicação possui.
Tentei alterar o intervalo do Ttimer
mas o problema persiste.
Alguma dica de como resolver?
Código do timer:
procedure TfrmPrincipal.Timer1Timer(Sender: TObject);
begin
if ( TimeToStr(time) < '05:00:00' ) or ( TimeToStr(time) > '24:00:00' ) then Application.Terminate;
if (timetostr(time) >= '23:50:00') and (timetostr(time) <= '24:00:00') then
begin
Timer1.Enabled := false;
if frmmodulo.qrcaixa_operador.FIELDBYNAME('situacao').AsInteger = 1 then
begin
application.messagebox(Pchar('Já são ' + timetostr(time) +
' e o Caixa do dia ' + datetostr(frmmodulo.qrcaixa_operador.FIELDBYNAME
('data').asdatetime) + #13 + 'Ainda não foi fechado! Verifique!'),
'Atenção', mb_ok + mb_iconwarning);
end;
Timer1.Enabled := true;
end;
end;
OnTimer
.invalidate
no seu form, o que faz com que ele seja renderizado novamente. A única coisa neste método que faria isso é aMessageBox
quando executada. Você verificou se o seu form esta utilizando double buffering? Habilitando double buffering não removerá o "redesenho" do form, mas provavelmente fará com que a piscada suma.