Fórum Como alterar varios captions em Run Time? #342845
20/06/2007
0
Olá a todos,
Já vi isto por aqui , mas não consegui encontrar. Preciso fazer com que o caption de varios componentes label e groupbox sejam alterados em run time:
Exemplo:
ANTES:
LABEL01.CAPTION := ´ TESTE 01´ ;
LABEL02.CAPTION := ´ TESTE 02;
DEPOIS:
FOR A:1 TO 2 DO
LABEL0+INTTOSTR(A).CAPTION := ´NOVO LABEL ´ + INTTOSTR( A ) ;
LABEL01.CAPTION = ´ NOVO LABEL 01´ ;
LABEL02.CAPTION = ´ NOVO LABEL 02´;
Agradeço a todos e um DELPHI ABRAÇO.
RIKGUEDES
Já vi isto por aqui , mas não consegui encontrar. Preciso fazer com que o caption de varios componentes label e groupbox sejam alterados em run time:
Exemplo:
ANTES:
LABEL01.CAPTION := ´ TESTE 01´ ;
LABEL02.CAPTION := ´ TESTE 02;
DEPOIS:
FOR A:1 TO 2 DO
LABEL0+INTTOSTR(A).CAPTION := ´NOVO LABEL ´ + INTTOSTR( A ) ;
LABEL01.CAPTION = ´ NOVO LABEL 01´ ;
LABEL02.CAPTION = ´ NOVO LABEL 02´;
Agradeço a todos e um DELPHI ABRAÇO.
RIKGUEDES
Rikguedes
Curtir tópico
+ 0
Responder
Posts
20/06/2007
Nightshade
procedure TFMain.Image4Click(Sender: TObject);
var
x: Integer;
Count: Integer;
begin
Count := 0;
for x := 0 to Self.ComponentCount -1 do
begin
if (Self.Components[x] is TLabel) then
begin
Inc(Count);
TLabel(Self.Components[x]).Caption := IntToStr(Count) + ´ TESTE´;
end;
end;
end;
Responder
Gostei + 0
20/06/2007
Nightshade
Explicando meu codigo:
ele pegara o form atual, contara o numero de objetos que estao ´fixados´ nele.
apos isso ele verificara se o objet eh da classe TLabel
caso seje, pela identificaçao dele, sendo ali um TObject, fiz um typecast para ele se referenciar como um TLabel, para poder acessar a propriedade caption dele. o Inc eh uma funçao de incremento do delphi, tipo Count := Count + 1;
o inc faz isso :p
espero ter t ajudado
flw
ele pegara o form atual, contara o numero de objetos que estao ´fixados´ nele.
apos isso ele verificara se o objet eh da classe TLabel
caso seje, pela identificaçao dele, sendo ali um TObject, fiz um typecast para ele se referenciar como um TLabel, para poder acessar a propriedade caption dele. o Inc eh uma funçao de incremento do delphi, tipo Count := Count + 1;
o inc faz isso :p
espero ter t ajudado
flw
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)