Eu quis criar um efeito de transição para um form, então, no evento OnShow
, setei a propriedade AlphaBlend := 0
e, no OnActivate:
for i := 55 to 255 do
begin
AlphaBlendValue := i;
Update;
sleep(1);
end;
Funciona perfeitamente em meu equipamento, fazendo com que o form fique visível gradualmente, em torno de dois décimos de segundo, o que dá um efeito mais agradável. No entanto, ao copiar o executável para outros dois equipamentos (por sinal, idênticos ao meu - mesma marca e modelo), o efeito demora cerca de dois segundos (!), dando uma impressão péssima!
Alguém tem alguma ideia do que poderia estar acontecendo?