Genel İşlemler - VirtualKeyboard Klavye desteği

Sayfayı Yazdır | Pencereyi Kapat

VirtualKeyboard Klavye desteği

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=507
Tarih: 06 Ocak 2025 Saat 13:07
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: VirtualKeyboard Klavye desteği

Mesajı Yazan: Benhur
Konu: VirtualKeyboard Klavye desteği
Mesaj Tarihi: 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...

Cevaplar:

Mesajı Yazan: Saliha Göçergi
Mesaj Tarihi: 15 Haziran 2023 Saat 11:31

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;