procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
K: Integer = 10;
{$J-}
begin
if ((Image1.Left + K) > (ClientWidth - Image1.Width)) or
((Image1.Left + K) < 0) then K := - K;
Image1.Left := Image1.Left + K;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Self.DoubleBuffered := True;
end;
{$J+}
const
K: Integer = 10;
{$J-}
begin
if ((Image1.Left + K) > (ClientWidth - Image1.Width)) or
((Image1.Left + K) < 0) then K := - K;
Image1.Left := Image1.Left + K;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Self.DoubleBuffered := True;
end;
const
K: Integer = -10; //定义静态变量
你有没有这句啊form1.DoubleBuffered := True;
有这句应该不会闪的,要不就是你机太慢了,不过我166MMX都不闪呢::)