tagları kullanarak kontrol

[nitro]

merhabalar
aşağıdaki işlemleri yapacak kodlar arıyorum.
rengi mavi olan panelin tag'ı nedir?
tag'ı 105 olan paneli mavi yap

olay daha detaylı ama, bana lazım olan bu kısmı

[rsimsek]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Temp: TComponent;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    Temp := Components[I];
    if (Temp is TPanel) then
      if (Temp as TPanel).Color = clBlue then
         ShowMessage('Tag: ' + IntToStr((Temp as TPanel).Tag));
  end;

  for I := 0 to ComponentCount - 1 do
  begin
    Temp := Components[I];
    if (Temp is TPanel) then
      if (Temp as TPanel).Tag = 105 then
        (Temp as TPanel).Color := clBlue;
  end;
end;

[nitro]

recep abi bu kadar döngü programı yavaşlatr diye düşünüyorum. Daha pratik bişey yoksa bunu kullanıcam.

[sTb]

S.A.
@rsimsek abinini verdiği kodu biraz değiştirerek.( müsadenle abi )
Ne derece fark eder bilmiyorum ama;

Kod: Tümünü seç

I:integer;
begin
for I:=0 to ComponentCount-1 do
 if components[I] is tpanel then
  begin
   if tpanel(components[I]).tag=105 then tpanel(components[I]).color:=clblue;
   if tpanel(components[I]).color=clblue then showmessage('Tag :'+inttostr(tpanel(components[I]).tag));
  end;

[rsimsek]

varsa a ben bilemiyorum.. yüzlerce binlerce bileşen olmadığı sürece pek bir hız farkı hissedilemez...

Ben özellikle öyle istendi diye ayrı ayrı yazmıştım

[nitro]

elinize sağlık recep abi ve sTb.
teşekkürler. verdiğiniz örnekleri şekillendirerek hallettim.