editbox'u butonlarla yönetmek

[ikutluay]

Merbaha

Bir forma çeşitli butonlar yerleştirdim ve herbir butonun captionunda ilgili harf ve rakamlar yer alıyor. tıklandığında ise editbox'un text alanına bu harfi ekletiyorum...

Ancak bu alanda sağa sola gidebilmek ve aradan karakter silmek gibi istekler var...

Program uzak masaüstünde çalışıyor ve el terminali içinde bu klavye formu hayati önemde.

En sondaki karakteri copy(length-1) ile çözmek sorun değil. epeyce kod parçaladıktan sonra bunun en kolay yolunun basılan butonlar edit e mesaj olarak göndermek olduğunu düşünmeye başladım.

Xe6 'da sanal klavye benim ekran çözünürlüğüm içinde çok büyük. yoksa biçilmiş kaftan olacaktı.

1. Delphinin standart sanal klavyesini nasıl değiştirebilirim (boyutunu)
2. butonu nasıl edit'e mesaj olarak gönderirim.
3. Sağ ol sol ok del tuşu gibi mesajlar için hazır bir kod parçası varmıdır.

Saygılar

[xxxjedixxx]

Merhaba,

Kod: Tümünü seç

//A..Z'ye karakter göndermek için 
  Edit1.Perform(WM_CHAR, Ord('A'), 0);
  Edit1.Perform(WM_CHAR, Ord('Z'), 0);

// Backspace içim
  Edit1.Perform(WM_CHAR, VK_BACK, 0);

//İmleci sağa veya sola kaydırma için
  Edit1.Perform(WM_KEYDOWN, VK_Left, 0);
  Edit1.Perform(WM_KEYDOWN, VK_Right, 0);

//Delete tuşu için
  Edit1.Perform(WM_KEYDOWN, VK_Delete, 0);

Ekte örnek bir uygulama mevcuttur. Tüm karakterleri ekleyemedim sadece A'dan G'ye kada koydum. Hepsi için tek bir click prosedürü kullandım.

[ikutluay]

bende buraya yazdıktan sonre selstar sellentgth kullanarak sorunu alternatif yolla çözmüştüm ama bu daha iyi ve güzel çalışıyor. işin tuhafı yaptığım aramalarda epeyce perfom kodu da bulmuştum ama ne hikmetse çalışmamıştı.

kendi formuma uygulayacağım...

teşekkürler

[ikutluay]

evet aptalca bir durum ama tek hatamız speedbutton kullanmamak olmuş. düğmeler şık görünsün diye bir xibutton kullanmıştım. Speed button tabstop olmadığı çin şimdi tamamen istediğim gibi çalışıyor