for ile oluşturulan butonun visible durumu

[arsl01]

merhaba iyi günler ben for ileortalama 40 adet buton oluşturuyorum ve oluştuturken visiblelerini false yapıyorum istediğim yerde açmak istiyorum tüm oluşturulan butonların şu kodu yazıyorum tek bir buton visiblesi true oluyor kod bu

butonları oluşturduğum yer burası

or I := 0 to Length(EnigmaAPI.Categories.turkdizi) - 1 do
  begin

  türkdizifilmbutton:=Tbutton.create(self);

  türkdizifilmbutton.top:=100;
  türkdizifilmbutton.left:=100;
  türkdizifilmbutton.height:=45;
  türkdizifilmbutton.width:=150;
  türkdizifilmbutton.Font.Size:=15;
  türkdizifilmbutton.parent:=(ScrollBox5);
  ScrollBox5.Height:=form2.Height-150;
  türkdizifilmbutton.Align:=altop;
  türkdizifilmbutton.tag:=strtoint( EnigmaAPI.Categories.turkdizi[i].category_id);
  türkdizifilmbutton.caption:=  EnigmaAPI.Categories.turkdizi[i].category_name;
  türkdizifilmbutton.OnClick := türkdiziButtonlarClick;
 end;

visinlelerini true yaptığım yerde burası 

türkdizifilmButton.Visible:=true;

yardımcı olurmusunuz?

---

@Fesih ARSLAN lütfen konuya bakarmısın abi

[Fesih ARSLAN]

(04-07-2018, Saat: 11:00)arsl01 Adlı Kullanıcıdan Alıntı: merhaba iyi günler ben for ileortalama 40 adet buton oluşturuyorum ve oluştuturken visiblelerini false yapıyorum istediğim yerde açmak istiyorum tüm oluşturulan butonların şu kodu yazıyorum tek bir buton visiblesi true oluyor kod bu

butonları oluşturduğum yer burası

or I := 0 to Length(EnigmaAPI.Categories.turkdizi) - 1 do
  begin

  türkdizifilmbutton:=Tbutton.create(self);

  türkdizifilmbutton.top:=100;
  türkdizifilmbutton.left:=100;
  türkdizifilmbutton.height:=45;
  türkdizifilmbutton.width:=150;
  türkdizifilmbutton.Font.Size:=15;
  türkdizifilmbutton.parent:=(ScrollBox5);
  ScrollBox5.Height:=form2.Height-150;
  türkdizifilmbutton.Align:=altop;
  türkdizifilmbutton.tag:=strtoint( EnigmaAPI.Categories.turkdizi[i].category_id);
  türkdizifilmbutton.caption:=  EnigmaAPI.Categories.turkdizi[i].category_name;
  türkdizifilmbutton.OnClick := türkdiziButtonlarClick;
 end;

visinlelerini true yaptığım yerde burası 

türkdizifilmButton.Visible:=true;

yardımcı olurmusunuz?

---

@Fesih ARSLAN  lütfen konuya bakarmısın abi

 

TButton(FindComponent(EnigmaAPI.Categories.turkdizi[i].category_name)).Visible:=True;

i yerine 1,2,3...n yazabilirsiniz.

[arsl01]

(04-07-2018, Saat: 11:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

(04-07-2018, Saat: 11:00)arsl01 Adlı Kullanıcıdan Alıntı: merhaba iyi günler ben for ileortalama 40 adet buton oluşturuyorum ve oluştuturken visiblelerini false yapıyorum istediğim yerde açmak istiyorum tüm oluşturulan butonların şu kodu yazıyorum tek bir buton visiblesi true oluyor kod bu

butonları oluşturduğum yer burası

or I := 0 to Length(EnigmaAPI.Categories.turkdizi) - 1 do
  begin

  türkdizifilmbutton:=Tbutton.create(self);

  türkdizifilmbutton.top:=100;
  türkdizifilmbutton.left:=100;
  türkdizifilmbutton.height:=45;
  türkdizifilmbutton.width:=150;
  türkdizifilmbutton.Font.Size:=15;
  türkdizifilmbutton.parent:=(ScrollBox5);
  ScrollBox5.Height:=form2.Height-150;
  türkdizifilmbutton.Align:=altop;
  türkdizifilmbutton.tag:=strtoint( EnigmaAPI.Categories.turkdizi[i].category_id);
  türkdizifilmbutton.caption:=  EnigmaAPI.Categories.turkdizi[i].category_name;
  türkdizifilmbutton.OnClick := türkdiziButtonlarClick;
 end;

visinlelerini true yaptığım yerde burası 

türkdizifilmButton.Visible:=true;

yardımcı olurmusunuz?

---

@Fesih ARSLAN  lütfen konuya bakarmısın abi

 

TButton(FindComponent(EnigmaAPI.Categories.turkdizi[i].category_name)).Visible:=True;

i yerine 1,2,3...n yazabilirsiniz.

süpersina bi teşekkürler hemen uyguluyorum

---

(04-07-2018, Saat: 11:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

(04-07-2018, Saat: 11:00)arsl01 Adlı Kullanıcıdan Alıntı: merhaba iyi günler ben for ileortalama 40 adet buton oluşturuyorum ve oluştuturken visiblelerini false yapıyorum istediğim yerde açmak istiyorum tüm oluşturulan butonların şu kodu yazıyorum tek bir buton visiblesi true oluyor kod bu

butonları oluşturduğum yer burası

or I := 0 to Length(EnigmaAPI.Categories.turkdizi) - 1 do
  begin

  türkdizifilmbutton:=Tbutton.create(self);

  türkdizifilmbutton.top:=100;
  türkdizifilmbutton.left:=100;
  türkdizifilmbutton.height:=45;
  türkdizifilmbutton.width:=150;
  türkdizifilmbutton.Font.Size:=15;
  türkdizifilmbutton.parent:=(ScrollBox5);
  ScrollBox5.Height:=form2.Height-150;
  türkdizifilmbutton.Align:=altop;
  türkdizifilmbutton.tag:=strtoint( EnigmaAPI.Categories.turkdizi[i].category_id);
  türkdizifilmbutton.caption:=  EnigmaAPI.Categories.turkdizi[i].category_name;
  türkdizifilmbutton.OnClick := türkdiziButtonlarClick;
 end;

visinlelerini true yaptığım yerde burası 

türkdizifilmButton.Visible:=true;

yardımcı olurmusunuz?

---

@Fesih ARSLAN  lütfen konuya bakarmısın abi

 

TButton(FindComponent(EnigmaAPI.Categories.turkdizi[i].category_name)).Visible:=True;

i yerine 1,2,3...n yazabilirsiniz.

ama burada live button olduğunu belirtmemişssiz buton çeşisdi çok Tbutton yerine onumu yazacağız

---

livebutton yazdığımmı hata veriyor

[Fesih ARSLAN]

(04-07-2018, Saat: 11:12)arsl01 Adlı Kullanıcıdan Alıntı:

(04-07-2018, Saat: 11:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

 

TButton(FindComponent(EnigmaAPI.Categories.turkdizi[i].category_name)).Visible:=True;

i yerine 1,2,3...n yazabilirsiniz.

süpersina bi teşekkürler hemen uyguluyorum

---

(04-07-2018, Saat: 11:11)Fesih ARSLAN Adlı Kullanıcıdan Alıntı:

 

TButton(FindComponent(EnigmaAPI.Categories.turkdizi[i].category_name)).Visible:=True;

i yerine 1,2,3...n yazabilirsiniz.

ama burada live button olduğunu belirtmemişssiz buton çeşisdi çok Tbutton yerine onumu yazacağız

---

livebutton yazdığımmı hata veriyor

Buton tipinizi

türkdizifilmbutton:=Tbutton.create(self);

TButton olarak tanımladığınızdan, işlem yapmak istediğiniz butonu TButton olarak cast etmeniz yeterli olacaktır.

[arsl01]

zaten öyle yapıyorum buton oluştururken kodd buü

livebutton(FindComponent(EnigmaAPI.Categories.live[i].category_name)).Visible:=True;

[Fesih ARSLAN]

Aşağıdaki gibi bir fonksiyon tanımlayın.

function TForm1.GetLiveButton(LiveButonTag: integer): TButton;
var
 I: Integer;
begin
 for I := 0 to ScrollBox1.ControlCount - 1 do
   if ScrollBox1.Controls[i] is TButton then
   begin
     if ScrollBox1.Controls[i].Tag = LiveButonTag then
     begin
       result := TButton(ScrollBox1.Controls[i]);
       Exit;
     end;
   end;
end;

Tag değerini bildiğiniz bir butonu gizlemek için aşağıdaki kodu kullanabilirsiniz.

GetLiveButton(584).Visible := False;

Tag değerini bildiğiniz bir butonu göstermek için ise aşağıdaki kodu kullanabilirsiniz.

GetLiveButton(584).Visible := True;

[arsl01]

çok teşekkürler

[Tuğrul HELVACI]

Gözden kaçırdığınız bir şey var ama kullanırken. Örneğin;

GetLiveButton(1453).Visible := true;

biçiminde çağırın kodunuzu bakalım ne olacak ;-)

[Fesih ARSLAN]

(05-07-2018, Saat: 09:28)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Gözden kaçırdığınız bir şey var ama kullanırken. Örneğin;

GetLiveButton(1453).Visible := true;

biçiminde çağırın kodunuzu bakalım ne olacak ;-)

O kısımı özellikle yazmadım Tuğrul hocam. @arsl01 herhangi bir Access violation durumunda, biraz kafa yorsun. Çözümsüz kaldığı noktada tekrar DelphiCan'ın kapısını çalsın.

[arsl01]

yaptım hocam uğraştım biraz ama oldu