Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - TclVertScrollBox kaydırırken klavye açılıyor
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

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 Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
GurkanCelen Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06 Temmuz 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı GurkanCelen Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: TclVertScrollBox kaydırırken klavye açılıyor
    Gönderim Zamanı: 2 Saat 50 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">
Yukarı Dön
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif
Puanlar: 62 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 29 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">
Yukarı Dön
GurkanCelen Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 06 Temmuz 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı GurkanCelen Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 51 Dakika Önce Saat 13:42
teşekkür ederim.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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.