edit nesnesie keydown olayı

denizuzun · Mesaj gönderen **denizuzun** » 01 Ağu 2005 10:21

merhaba ark.
bir edit nesnemiz var toplam karakter uzunluğu "1".nesne bu karakter uzunluğuna ulaştığında yani bir harf yada rakam yazdığımızda bir sonraki nesneye geçmesi gerekiyor bunu nasıl sağlayabiliriz.

Mesaj gönderen **gkimirti** » 01 Ağu 2005 10:40

OnKeyDown olayına

Kod: Tümünü seç

if Length(Edit1.Text)>10 then
  Edit2.SetFocus;

gibi birsey is gorur

denizuzun · Mesaj gönderen **denizuzun** » 01 Ağu 2005 11:26

teşekkürler bu kod işime yarayabilir fakat hemen hemen 200 adet edit nesnesi var bunun için bana birşey önerebilir misiniz yada;
bir edit nesnesinin içindeki harflerin arasına bizim belittiğimiz bir uzunlukta boşluk nasıl ekleyebiliriz

http://www.gacalsoft.com

selimr · Mesaj gönderen **selimr** » 01 Ağu 2005 11:30

edit bileşeninden bir yeni edit oluştur..

OnKeyDown olayına koşulunu koy..

cemarik · Mesaj gönderen **cemarik** » 02 Ağu 2005 11:30

Kod: Tümünü seç

  if Length(TcxTextEdit(Sender).Text)=4 then
     Perform(WM_NEXTDLGCTL,0,0);

Burada Herbir editin OnkeyDown veya OnKeyPress' ine bu event i işaret etmen gerekiyor ve Formun keypreview özelliğini de True yaparak taborder ları da ayarlarsan sorunsuz çalışabilirsin

denizuzun · Mesaj gönderen **denizuzun** » 02 Ağu 2005 02:21

ilginiz için çok teşekkür ederim arkadaşlar işe yarıyor peki bunu aynı şekilde backspace tuşunu basıldığında da geri nasıl alabiliriz.?

Mesaj gönderen **gkimirti** » 03 Ağu 2005 12:25

Kod: Tümünü seç

if Length(TcxTextEdit(Sender).Text)=0 then
     Perform(WM_NEXTDLGCTL,1,0);

seklinde bir denermisiniz