panel matris

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
kinayrock
Üye
Mesajlar: 5
Kayıt: 09 Tem 2008 01:31

panel matris

Mesaj gönderen kinayrock »

mrb.. 5x5 matris seklinde panel olusturdum asagıdaki kodlar ile renklendirme yapıorum

panel1.color:=clred;
panel2.color:=clred;
.
.
.
panel25.color:=clred;

ama her satırı tek tek yazıorum bunu for ile for k:=1 to 25 do gibi yapma imkanım varmı su sekilde denedm hata verior

for k:=0 to 6 do
begin
Panel[k].Color:=clred;
end;

yardımlarınız icin simdiden tskr ederm..
ibrahimcoban
Üye
Mesajlar: 163
Kayıt: 11 Eki 2005 10:44
İletişim:

Re: panel matris

Mesaj gönderen ibrahimcoban »

Kod: Tümünü seç

VAR
I  :INTEGER;
begin
FOR I:=0 TO ComponentCount-1 DO
IF Components[I] IS TPanel THEN TPanel(Components[I]).Color:=clRed;
end;
Sanırım bu işini görür.
http://ibrahimcoban.com/
Lazarus, Kol-Ce,Delphi ve C#
kinayrock
Üye
Mesajlar: 5
Kayıt: 09 Tem 2008 01:31

Re: panel matris

Mesaj gönderen kinayrock »

cok tesekkür ederm.. gercekten cok faydalı oldu..
Cevapla