|
| Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
TclVertScrollBox kaydırırken klavye açılıyor |
Yanıt Yaz 
|
| Yazar | |
GurkanCelen 
Yeni Üye 
Kayıt Tarihi: 06 Temmuz 2026 Durum: Aktif Değil Puanlar: 5 |
 Mesaj Seçenekleri
Yanıt Yaz
Alıntı GurkanCelen
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: TclVertScrollBox kaydırırken klavye açılıyorGönderim Zamanı: 1 saat 45 Dakika Önce Saat 11:43 |
|
Merhaba, TclVertScrollBox içinde birden fazla TclProEdit kullandığımda, ekranı kaydırırken klavye sürekli açılıyor. Kullanıcı formu aşağı kaydırmak istediğinde klavye açılıp ekranı kapatıyor. Bu sorunu nasıl çözebiliriz? Klavyenin sadece kullanıcı ilgili kutuya tıkladığında açılmasını istiyorum.https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|
|
 |
|
|
kayra12
Deneyimli Üye 
Kayıt Tarihi: 23 Aralık 2024 Durum: Aktif Değil Puanlar: 62 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 1 saat 24 Dakika Önce Saat 12:04 |
|
Merhaba Gürkan işte çalışan kodun burada var
AnaForm: TclForm; KaydirmaAlani: TCLVertScrollBox; BosKutu: TclProEdit; i: Integer; // 1. Kullanıcı bilerek kutuya TIKLADIĞINDA çalışacak bölüm void KutuyaTiklandi; var TiklananKutu: TclProEdit; { TiklananKutu = TclProEdit(AnaForm.Clsender); TiklananKutu.ReadOnly = False; // Kutuyu yazmaya açıyoruz TiklananKutu.SetFocus; // Odağı verip klavyeyi ekrana çağırıyoruz } // 2. Kullanıcı yazmayı bitirip başka yere DOKUNDUĞUNDA (Çıkış yaptığında) çalışacak bölüm void KutudanCikildi; var CikanKutu: TclProEdit; { CikanKutu = TclProEdit(AnaForm.Clsender); CikanKutu.ReadOnly = True; // Kutuyu tekrar korumaya alıyoruz ki kaydırma bozulmasın } // Ana Program Bloğu { AnaForm = TclForm.Create(Self); AnaForm.clSetCaption('İçi Boş Kutulu Liste'); // Kaydırma (Scroll) alanını oluşturuyoruz KaydirmaAlani = AnaForm.AddNewVertScrollBox(AnaForm, 'KaydirmaAlani'); KaydirmaAlani.Align = alClient; // Döngü ile alt alta içi BOŞ TclProEdit (Metin Kutusu) oluşturuyoruz for (i = 1 to 15) { // DİKKAT: En sondaki parametre '' (Boş string). Yani kutunun içi tamamen BOŞ. BosKutu = AnaForm.AddNewProEdit(KaydirmaAlani, 'Kutu' + IntToStr(i), ''); BosKutu.Align = alTop; BosKutu.Height = 50; BosKutu.Margins.Top = 10; BosKutu.Margins.Left = 15; BosKutu.Margins.Right = 15; // Başlangıçta kutuları sadece okunabilir yapıyoruz ki ekranı kaydırırken klavye fırlamasın. BosKutu.ReadOnly = True; // Tıklama ve Çıkış olaylarını (Event) kutularımıza bağlıyoruz AnaForm.AddNewEvent(BosKutu, tbeOnClick, 'KutuyaTiklandi'); AnaForm.AddNewEvent(BosKutu, tbeOnExit, 'KutudanCikildi'); } AnaForm.Run; } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
|
|
|
|
|
Yanıt Yaz
|
|
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri