klavyeden girilen harfe göre yazı rengi

[sga]

merhaba
yine on parmak klavye programıyla ilgili bir sorum olacak.formumda klavyeyi oluşturan butonlar var.ben sıra hangi harfe geldiyse o butonun rengi kırmızı olsun.yanlış harfe basılırsada mavi olsun sonrada diğerinin sırası gelince o button eski haline dönsün.sırası gelen için aynı şeyler olsun istiyorum.bunları her harf için ayrı ayrı tanımlamalı mıyım yoksa bunun daha kısa bir yolu var mı?

[MicroChip]

formun onkeypress de keye bakarsın hangi keye basılmış ilgili kutucugun rengini değişirsin bu kadar...

atıyorum

if key='A' or 'a' then buton.color:=red;



saygılar...

[tuanna]

bazı klavye tuşlarında etkilşi olmuyor diye bir yazı okumuştum mesala del tuşunda...karşılaşınca şaşırmayınız...

[sga]

zaten benim sorduğumda bu yani her harf için bir buton var
ben 29 u için tek tek a ise button1 b ise button2 diye mi yazcam.yoksa bunun bi kısa yolu var mıdır?

[aslangeri]

s.a.
butonlara belli bir standartta isim vererek bu işi halledebilirsin.
örn. btna,btnb,btnc şeklinde
daha sonra findcomponent i kullanarak işlemini halledebilirsin.
kolay gelsin.

[secret_boy]

bu konuyla ilgili bende birsey sormak istiyorum.peki tustan elimizi kaldırınca tusun eski rengine donmesi için ne yapabiliriz?

[sga]

gerçekten özür dilerim ama
ben bu findcomponentin kullanımına baktım
şöyle birşey

const
a='button';

begin
findcomponent(a+yazi[length(edit1.text)]);
end;

ama

bulduğu butonun rengini nasıl değiştircek ?

[sga]

secret boy
o işlemi editin keyup olayına yazıyorsun o zaman oluyor

[KarizMan]

Arkadaşım bildiğim kadarıyla buton, BtnBtn ve SpeedButon'un renklerini değiştiremiyoruz. Bunları windows ayarlıyor.
Şöyle bir site buldum. Buradaki colorbuton componenti ile butonunu renklendirebilirsin.
Adres:http://delphi.about.com/od/vclwriteenha ... 61104a.htm

Sonra onKeyPress olayına:

Kod: Tümünü seç

TColorButton(findcomponent('ColorButton'+key)).BackColor:=clSkyBlue; 
TColorButton(findcomponent('ColorButton'+key)).HoverColor:=clSkyBlue; 

şeklinde yazarsınız.
Bu şekilde bişeyler yaparak işini halledebilirsin.
Kolay gelsin

[sga]

yardımlarınız için çok teşekkür ederim