******************
Pessoal
Tenho a seguinte duvida. Suponhamos que eu tenho 20 labels com os
seguintes nomes. lbNome1, lbNome2, ..., lnNome20. Gostaria de colocar
valor vazio no caption delas com um comando for. Alguém já fez algo
parecido, pois na verdade tenho 140 labels a zerar.
Att,
Marcos Ferreria
*****************
Voce pode fazer um loop no TForm.ComponenteCount -1...
verificando pelos componentes que sao Tlabel
Exe
procedure TForm1.Button1Click(Sender : TObjetct);
var
Cont : Integer; {Varivel para controlar o loop }
begin
{ Faco um loop em todos os componentes do form }
for Cont := 0 to TForm1.ComponentCount -1 do begin
{ Verifico se o mesmo é um label }
if (TForm.Components[Cont] is TLabel) then
{ Se for um label, entao dou um cast (procure no help do delphi
sobre 'is' e 'as')
ajustando o caption do mesmo para '' }
(TForm.Components[Cont] as TLabel).Caption := '';
end;
end;
Ok; (pode haver erros de digitacao, pois fiz o exemplo aqui no email)
Atenc.
Elazar
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
