Pesquisa pelo nome do componente

Delphi

27/04/2006

Tenho um formulario com um edit, um botão e 10 paineis, estes com nomes assim: pn1, pn2, pn3.... pn20.
Como fazer para ao precionar o botão a aplicação pegar o valor que está em edit e dependendo deste número pegar os paineis ´pelo nome´ e fazê-los mudar de côr.
Por exemplo se no edit tiver o valor 3, somente os paineis, pn1, pn2 e pn3 mudarão de cor os demais ficarão normais.

Grato, Epitácio Amaro
epitacioamaro@oi.com.br


Pitamaro

Pitamaro

Curtidas 0

Respostas

Rudá

Rudá

27/04/2006

Usa o TEdit(FindComponent(´nomedocomponente´));

var
Item: Integer;
begin
for Item:= 0 to StrToInt(Edit1.Text) do
TPanel(FindComponent(´pn´+IntToStr(Item))).Color:= clRed;



GOSTEI 0
POSTAR