Есть ли возможность снизить мерцание компонента?

← →
Flex (2003-05-25 13:13) [0]

Есть ли возможность снизить мерцание компонента TLabel при перересовке.

Владельцем TLabel на форме является компонент TPanel;

procedure TfmAboutBox.FormCreate(Sender: TObject);
begin
lbTask.ControlStyle:=lbTask.ControlStyle+[csOpaque];
Timer1.Enabled:=not Timer1.Enabled;
end;

procedure TfmAboutBox.Timer1Timer(Sender: TObject);
begin
lbTask.Top:=lbTask.Top-2; // перемещение TLabel
if lbTask.Top<-250 then lbTask.Top:=175;
end;

Заранее благодарен.

← →
Intell (2003-05-25 13:53) [1]

Видел на форуме, мне помогло:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:=True;
end;

Благодари не меня.

Есть ли возможность снизить мерцание компонента? Найти похожие ветки