kullanıcının ıstedıgı kadar buttonun vısıble ozellıgını acma

[burak_us]

form uzerınde 25 tane button kullanıorum bunların vısıble ı false
fakat kullanıcı edit 2 ye gırdıgı sayıda buttonu gormesını ıstıyorum bukomutu kullanınca su hatayı verıor :
Record, object or class type required
bu problemi nasıl çözebilirim....????


var
i,n:Integer;
l:String;
begin

n:=strtoint(Edit2.text);
i:=1;

while i<=n do
begin
l:=inttostr(i);
'Button'+quotedstr(l).visible:=true;
i:=i+1;
end;
end;

[mkysoft]

Nesnlere bu şekilde ulaşamazsınız.

Kod: Tümünü seç

TButton(Form1.FindCompanet('Button'+l)).Visable

şeklinde kullanmalısınız.

[rsimsek]

Ya da şöyle diyelim; bileşenin button olup olmadığını garantilemelisin

Kod: Tümünü seç

var
  i, n: Integer;
  l: String;
begin

  n := strtoint(Edit1.text);
  i := 1;

  while i <= n do
  begin
    l := inttostr(i);
    TButton(FindComponent('Button' + l)).Visible :=
      not TButton(FindComponent('Button' + l)).Visible;
    i := i+1;
  end;

end;

[burak_us]

ewt bu probklemi çözdüm yardımınız için teşekkür ederim