Tastatur mit "Ok" und "Weiter"?

[Union]

So könnte es gehen:

Delphi-Quellcode:

uses
  FMX.Platform,
  FMX.VirtualKeyboard;

procedure TForm1.VirtualKeyBoardButtonEvent(Sender: TObject);
begin
  ShowMessage(TVirtualKeyboardToolButton(Sender).Title);
end;

procedure TForm1.FormVirtualKeyboardShown(Sender: TObject;
  KeyboardVisible: Boolean; const Bounds: TRect);
const
  B_TITLE = 'Drücken';
var
  VKbBarSvc : IFMXVirtualKeyboardToolbarService;
  i : integer;
begin
  if (TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardToolbarService, IInterface(VKbBarSvc))) then
  begin
    for i := 0 to VkbBarSvc.ButtonsCount-1 do
    begin
      if VKbBarSvc.GetButtonByIndex(i).Title = B_TITLE then
      begin
        ShowMessage('Will schon '+B_TITLE);
        exit;
      end;
    end;
    VKbBarSvc.AddButton(B_TITLE, VirtualKeyBoardButtonEvent);
  end;
end;