Açılır Klavye ve İçeriği Kontrol Etme

[OmerAsaf]

Merhaba Arkadaşlar,

Mobil uygulamada aşağıdaki gibi bir klavye görüntüsü elde edemedim. 
KeyboardType = NumberPad Seçiyorum Virgül yerine nokta geliyor. 

Nokta yerine virgül gelmesini istiyorum. Edit in içeriğine sadece 0-9 ve virgül girecek şekilde nasıl ayarlarım. 

Yardımcı olur musunuz.

[hbulus]

(26-05-2021, Saat: 10:30)OmerAsaf Adlı Kullanıcıdan Alıntı: Merhaba Arkadaşlar,

Mobil uygulamada aşağıdaki gibi bir klavye görüntüsü elde edemedim. 
KeyboardType = NumberPad Seçiyorum Virgül yerine nokta geliyor. 

Nokta yerine virgül gelmesini istiyorum. Edit in içeriğine sadece 0-9 ve virgül girecek şekilde nasıl ayarlarım. 

Yardımcı olur musunuz.

Şöyle bir çözüm sunulmuş (stackoverflow), aşağıya alıntılıyorum. Umarım işinize yarar;

Alıntı:

Kod: (Select All)

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
var
 msg: TMsg;
begin
 if Key = VK_DECIMAL then
 begin
   PeekMessage(msg, Edit1.Handle, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE);
   SendMessage(Edit1.Handle, WM_CHAR, ord('.'), 0);
 end;
end;