birden fazla button ile çalışmak
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
birden fazla button ile çalışmak
arkadaşlar merhaba içinde en az 50 tane buttonu olan formlarda çalışma yapacağım her button bi kategori olacak bu kategoruler vt de kayıtlı olan tablodan geliyor buttonların captionuna bu bilgileri yazdıracağım fakat tek tek okuyup yazdırmam lazım bu captionları bi döngü ile doldurabilirmiyiz varmıdır bi yolu yordamı ?
Re: birden fazla button ile çalışmak
Kod: Tümünü seç
var i:integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TButton) then
begin
(Components[i] as TButton).Caption := IntToStr(i);
end;
end;
There's no place like 127.0.0.1
Re: birden fazla button ile çalışmak
kardeş verdiğin kodu denedim fakat şöyle bi sorun var tüm komponentlerin içinden buttonların captionuna bilgiyi yazdırıyor , ben misal 70 tane buttondan 1,-50 ye kadar olanların captionuna yazdırmak istiyorum tüm komponentler döngüye girince karışık atıyor komponentlerin indexslerini aldım o sıradan atayım diye bu seferde değişkenden geldiği için nesne ismini kabul etmiyorSimaWB yazdı:Kod: Tümünü seç
var i:integer; begin for i:=0 to ComponentCount-1 do if (Components[i] is TButton) then begin (Components[i] as TButton).Caption := IntToStr(i); end; end;
bakalım biraz daha uğraşacağım oldu oldu olmazsa başka bi çare düşünmeye başlayacağım artık.
verdiğin bilgiler için teşekkürler.
-
- Üye
- Mesajlar: 32
- Kayıt: 04 Tem 2009 06:20
- Konum: İstanbul
Re: birden fazla button ile çalışmak
Buttonların 1'den 50'ye kadar ard arda olduğunu varsayarsak, yani arada başka amaçla kullandığın buttonlar olmadan ve SimaWB arkadaşımızın kodlarını da kullanırsak şöyle işlem yapabilirsin.
Umarım yardımcı olmuşumdur. İyi çalışmalar.
Kod: Tümünü seç
var i:integer;
begin
for i:=1 to 50 do
(form1.FindComponent('Cxbutton'+inttostr(i)) as TCXbutton).Caption :=inttostr(i);
end;
Re: birden fazla button ile çalışmak
sirdragonblack yazdı:Buttonların 1'den 50'ye kadar ard arda olduğunu varsayarsak, yani arada başka amaçla kullandığın buttonlar olmadan ve SimaWB arkadaşımızın kodlarını da kullanırsak şöyle işlem yapabilirsin.
Umarım yardımcı olmuşumdur. İyi çalışmalar.Kod: Tümünü seç
var i:integer; begin for i:=1 to 50 do (form1.FindComponent('Cxbutton'+inttostr(i)) as TCXbutton).Caption :=inttostr(i); end;
teşekkür ederim. kolay gelsin