for ile oluşturulan butonun visible durumu

[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;