Tag'larına göre componentleri bulma [Çözüldü]

[Mesut]

Merhabalar, üzerinde çalışmakta olduğum bir proje için yetkilendirme ayarlarını tamamlamam gerekiyor. Şöyle ki proje içindeki formlarda bulunan her bir component'in taglarını sırasıyla numaralandırarak benzersiz numaralar verdim. Açılan formların OnShow özeliğinde sqlden gelen veriler ışığında açılan formdaki componentlerşn tag'larına karşılık gelen verilerin gösterilme özelliğine göre gösterilmesini yada gösterilmemesini sağlamak istiyorum. bu konuda tecrübesiyle yardımcı olacak kimse var mıdır acaba ? Yani tag numaralarına göre componentleri nasıl bulmam gerektiği konusunda yardım.

[41linea41]

(04-07-2021, Saat: 16:27)Mesut Adlı Kullanıcıdan Alıntı: Merhabalar, üzerinde çalışmakta olduğum bir proje için yetkilendirme ayarlarını tamamlamam gerekiyor. Şöyle ki proje içindeki formlarda bulunan her bir component'in taglarını sırasıyla numaralandırarak benzersiz numaralar verdim. Açılan formların OnShow özeliğinde sqlden gelen veriler ışığında açılan formdaki componentlerşn tag'larına karşılık gelen verilerin gösterilme özelliğine göre gösterilmesini yada gösterilmemesini sağlamak istiyorum. bu konuda tecrübesiyle yardımcı olacak kimse var mıdır acaba ? Yani tag numaralarına göre componentleri nasıl bulmam gerektiği konusunda yardım.

Merhaba

Form üzerindeki nesnelerin hespsini bi for ile gezip tag numarasını bakarak çözebilirsiniz.

  for I := 0 to ComponentCount - 1 do
   begin

      if (components[I] is TLabel) then
      begin
        if (components[I] as TLabel).tag= Aranan_değişken then
         begin
            //işlemler.
         end;

      Application.ProcessMessages;
   end;

[Mesut]

(04-07-2021, Saat: 19:17)41linea41 Adlı Kullanıcıdan Alıntı:

(04-07-2021, Saat: 16:27)Mesut Adlı Kullanıcıdan Alıntı: Merhabalar, üzerinde çalışmakta olduğum bir proje için yetkilendirme ayarlarını tamamlamam gerekiyor. Şöyle ki proje içindeki formlarda bulunan her bir component'in taglarını sırasıyla numaralandırarak benzersiz numaralar verdim. Açılan formların OnShow özeliğinde sqlden gelen veriler ışığında açılan formdaki componentlerşn tag'larına karşılık gelen verilerin gösterilme özelliğine göre gösterilmesini yada gösterilmemesini sağlamak istiyorum. bu konuda tecrübesiyle yardımcı olacak kimse var mıdır acaba ? Yani tag numaralarına göre componentleri nasıl bulmam gerektiği konusunda yardım.

Merhaba

Form üzerindeki nesnelerin hespsini bi for ile gezip tag numarasını bakarak çözebilirsiniz.

  for I := 0 to ComponentCount - 1 do
   begin

      if (components[I] is TLabel) then
      begin
        if (components[I] as TLabel).tag= Aranan_değişken then
         begin
            //işlemler.
         end;

      Application.ProcessMessages;
   end;

bu örneği stackowerflowd gördüm akin kullanımı konusunda sıkıntı yaşadım farklı canlı bir örnek yok mudur acaba

[odemir01]

Verile Bilecek En Güzel Örnek Olmuş. While Not Query1.Eof do seklindede for döngüsünü içine alırsan bütün tagları ve Datdaki yetkileri kontrol etmiş olursun. İlgili Tag ı bununcada break yaparsan dahada hızlenmış olur
for I := 0 to ComponentCount - 1 do
begin

if (components[I] is TLabel) then
begin
if (components[I] as TLabel).tag= Aranan_değişken then
begin
//işlemler.
berak;
end;
end;

[Mesut]

arkadaşlar sorunu bu şekilde çözdüm yardımcı oaln olamayan herkese teşekkürler ilk önce querryimde veritabanındaki izinler tabloma gittim sonrasında ilgili tagın olduğu kolonun show özelliğine göre aşağıdaki işlemleri yaptım 

for I := 0 to ComponentCount - 1 do
begin

 QueryDashboardYetki.First;
 while not QueryDashboardYetki.Eof do
 Begin
   if QueryDashboardYetki.FieldByName('MENU_ID').AsString = Components[I].tag.Tostring then
   Begin
     twincontrol (Components[I]).visible:= QueryDashboardYetki.FieldByName('IS_SHOW').AsBoolean;
   End;
   QueryDashboardYetki.Next;
 End;

 // ShowMessage(Components[I].tag.Tostring);

 Next;
 QueryDashboardYetki.Next;
end;