Sanal klavye kursör tuşları

[tim]

Merhabalar arkadaşlar,

Yapmış olduğum sanal klavye programına yön tuşları eklemek istiyorum. Klavye formunda bir Edit bileşenim var ve sanal klavye üzerindeki sağa / sola yön tuşlarını tıkladığımda, kursörün bu edit kutusu içindeki bilgi üzerinde hareket etmesini istiyorum. Bu işi nasıl yapabileceğim hakkında yardımlarınızı rica ediyorum. Şimdiden teşekkürler....

[dpcmsx]

Sayın Tim;

GetCaretPos ve SetCaretPos fonksiyonları ile yapabilirsiniz.

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
CurPos : tpoint;

begin

  GetCaretPos(CurPos);
  CurPos.X:= Curpos.X + 8;
  SetCaretPos(curpos.X,curpos.Y);

end;

Curpos.x + 8 işleminin nedeni, kursörün tam karakter olarak hareket etmiş gibi gösterilmesidir. Geriye gideceği zaman buradaki işlem CurPos.x - 8 olacaktır. Bu değeri kullanacağınız EditBox font değerine göre ayarlayabilirsiniz. Timer prosedürünü birebir görmek amacıyla kullandım, siz tuş değerleri ile bunu istediğiniz gibi bağlayabilirsiniz.

[aslangeri]

s.a.
postmessage metodu ile ilgili edite yön tuşunu gönderebilirsiniz.