1 Konuyu açan kandilzade

  • kandilzade
  • Uzman Üye
  • Offline
  • Yer: İzmir
  • Kayıt Tarihi: 23.04.2007
  • İleti: 204

Konu: Textbox'larda imleç sona dayanmıyor

Merhaba,
Formlarda kullanılan textbox'larla ilgili olarak bir kaç kullanıcı arkadaşımdan küçük ama ortak bir geribildirim aldım. Diyelim bir texbox'ta hastanın adını kullanıcı girecek. O textbox max 15 karakterli olsun. Kullanıcı 15. karakteri girdiğinde imleç (cursor) sonuncu karakterin solunda duruyor ve hiçbir zaman sağına geçmiyor. Kullanıcı da daha yazabileceğini sanıp bir karakter daha giriyor, bu kez de sonuncu karakteri istemeden değiştirmiş oluyor.

Bu durumun bir çözümü var mıdır?
teşekkürler...

2 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Textbox'larda imleç sona dayanmıyor

set confirm off

cetinbasoz's Website

3 Cevaplayan kandilzade

  • kandilzade
  • Uzman Üye
  • Offline
  • Yer: İzmir
  • Kayıt Tarihi: 23.04.2007
  • İleti: 204

Re: Textbox'larda imleç sona dayanmıyor

Bu da tam çözüm olmuyor. Çünkü focus bir sonraki kontrole geçiyor. Kullanıcı bu kez oraya yazmaya başlıyor. Ben set confirm on yapmıştım ki kullanıcı daha fazla yazamayacağını anlasın.

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Textbox'larda imleç sona dayanmıyor

Sorun da o zaten yazmayacagi yere cursor konumlanmasini istiyorsun. O zaman keypress'te kontrol et.

LPARAMETERS nKeyCode, nShiftAltCtrl
IF this.SelStart = this.MaxLength-1 AND ;
nKeyCode >= 0x20 AND ;
nKeycode != 127 AND ;
LEN(TRIM(this.Value)) = this.maxLength
NODEFAULT
endif

cetinbasoz's Website

5 Cevaplayan kandilzade

  • kandilzade
  • Uzman Üye
  • Offline
  • Yer: İzmir
  • Kayıt Tarihi: 23.04.2007
  • İleti: 204

Re: Textbox'larda imleç sona dayanmıyor

Gerçekten çok teşekkür ederim. Tam da gereksinim duyduğum kod'u gördermişsiniz.
SelStart property'sini bilmiyordurm ve hiç kullanıldığını görmemiştim (zaten VFP konusunda çok bilgili sayılmam).
Ben bir de sağ ve sol cursor tuşlarıyla textboxtan çıkmayı önlemek için şu kodu ekledim:

IF This.SelStart = 0 AND nKeyCode = 19 OR ;
  This.SelStart = This.MaxLength-1 AND nKeyCode = 4
  NODEFAULT
ENDIF