editbox'u butonlarla yönetmek

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

editbox'u butonlarla yönetmek

Mesaj gönderen 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
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog

xxxjedixxx
Üye
Mesajlar: 216
Kayıt: 10 Ara 2013 03:50

Re: editbox'u butonlarla yönetmek

Mesaj gönderen 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.
Dosya ekleri
Sanal Klavye.rar
(165.96 KiB) 44 kere indirildi

ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Re: editbox'u butonlarla yönetmek

Mesaj gönderen 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
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog

ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Re: editbox'u butonlarla yönetmek

Mesaj gönderen 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
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog

Cevapla