Сегодня мы изучим ввод данных в наше приложение, посредством виртуальной клавиатуры.

Методы, используемые при работе с клавиатурой:
ShowVirtualKeyboard (const AControl: TFmxObject)-вызов клавиатуры(в скобках контрол, для которого вызвана клавиатура)
HideVirtualKeyboard - скрытие клавиатуры
GetVirtualKeyBoardState - присвоение статуса виртуальной клавиатуры

1)На форме нам понадобится: edit и label.

2)В разделе uses прописываем модули:

FMX.Platform, FMX.VirtualKeyboard;

3)Вызов клавиатуры, при нажатии на edit:

procedure TForm2.Edit1Click(Sender: TObject);
var Keyboard: IFMXVirtualKeyboardService; //ввод переменной, отвечающей за обращение к сервису
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(Keyboard)) then //обращение к сервису клавиатуры
 
Keyboard.ShowVirtualKeyboard(Edit1); //вызов клавиатуры
 
end;

4)Скрытие клавиатуры, если была нажата клавиша Enter:

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
 var  Keyboard: IFMXVirtualKeyboardService;
begin
If (key=13) then begin //если нажата клавиша enter
   if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(Keyboard)) then
   Keyboard.HideVirtualKeyboard; //скрытие виртуальной клавиатуры
   label1.text:=edit1.text;
end;
end;

Удачи!

Добавлено: 24 Февраля 2015 17:09:43 Добавил: Андрей Ковальчук Нравится 0

Добавить