Buscar por:

Xpmanifest problemas com labels

Código

Ao usar o XPManifest os Labels que estão dentro de ScrollBox não aparecem

em tempo de execução por um Bug presente no Delphi.

Para sanar este defeito uma saida é criar uma função que chame um repaint

para os componentes no ScrollBox.

procedure refreshScroll(Scroll:TScrollBox);

var

  I: Integer;

begin

  I := 0;

  While i<Scroll.ControlCount do

  begin

    if Scroll.Controls[I].ClassName<>'TEdit' then

      Scroll.Controls[I].Repaint;

    i:=i+1;

  end;

end;

use assim

  refreshScroll(ScrollBox1);