![]() |
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. |
VirtualKeyboard Klavye desteği |
Yanıt Yaz ![]() |
Yazar | |
Benhur ![]() Moderatör ![]() ![]() Kayıt Tarihi: 30 Mayıs 2023 Durum: Aktif Değil Puanlar: 28 |
![]() ![]() ![]() ![]() ![]() Gönderim Zamanı: 07 Haziran 2023 Saat 20:55 |
TclForm üzerinde, tbeOnVirtualKeyboardShown ve tbeOnVirtualKeyboardHidden eventları bulunmaktadır. bunlar içinde aşağıdaki değişkenler desteklidir;
clVKVisible:Boolean; //virtual keyboard bounds.
clVKBoundsLeft, clVKBoundsRight, clVKBoundsWidth, clVKBoundsHeight:Single; |
|
learn, try, use...
|
|
![]() |
|
Saliha Göçergi ![]() Forum Yöneticisi ![]() ![]() Kayıt Tarihi: 08 Mayıs 2023 Durum: Aktif Değil Puanlar: 33 |
![]() Yanıt Yaz
Alıntı Saliha Göçergi
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() |
Bu özelliğin kullanımına ait bir örnek;
var MyForm : TclForm; Edt1: TclEdit; Lyt1 : TclLayout; procedure VirtualKeyboardShow; begin Edt1.Margins.Bottom := MyForm.clVKBoundsHeight; end; procedure VirtualKeyboardHidden; begin Edt1.Margins.Bottom := 0; end; begin MyForm := TclForm.Create(Self); MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardShown,'VirtualKeyboardShow'); MyForm.AddNewEvent(MyForm,tbeOnVirtualKeyboardHidden,'VirtualKeyboardHidden'); Lyt1 := MyForm.AddNewLayout(MyForm,'Lyt1'); Lyt1.Align := alClient; Edt1 := MyForm.AddNewEdit(Lyt1,'Edt1','Click and See!'); Edt1.Align := AlBottom; MyForm.Run; end; |
|
![]() |
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 |