Entre para seguir isso  
Cloud

Criando Componentes Em Tempo De Execução

Recommended Posts

Cloud    0

Caros amigos,

O Capablanca foi muito gentil em enviar-me um código que criasse labels em tempo de execução, mas eu estou com um problema. Tenho que acessá-los individualmente após tê-los criado. Por exemplo:

Label.Caption := matriz;

Iguala o Caption do Label à string de uma matriz, dentro de um loop.

Como faço isso?

Obrigado.

Abraços.

Compartilhar este post


Link para o post
Compartilhar em outros sites
s3c    0

Crie um TList de labels.

var L:TList; Lb:TLabel; i:Integer; // Deixe L como variável global
begin
  L := TList.Create;
  for i := 0 to MatrizCount-1 do
  begin
    Lb := TLabel.Create(Form1);
    Lb.Parent := Form1;
    L.Add(Lb);
// ajuste left e top
  end;
end;

Para Utilizar:

var i:Integer;

begin

for i := 0 to L.Count-1 do

TLabel(L[i]).Caption := Matriz[i];

end;

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

Entre para seguir isso