Как реализовать такое-же окно как на картинке ?

[chaplin.u@gmail.com]

Как реализовать такое-же окно  как на картинке ?

[Равиль Зарипов (ZuBy)]

https://github.com/rzaripov1990/fmx/tree/master/berlin/MyDialogs

 

Изменено 4 октября, 2016 пользователем ZuBy

[HyperZen]

begin
  TDialogServiceAsync.InputQuery('Adv Options', ['Discover Targets at'], [''],
    procedure(const AResult: TModalResult; const AValues: array of string)
      begin
        case AResult of
          mrOk:
            begin
				// необходимые действия
            end;
          mrCancel:
            begin
              Exit;
            end;
        end;
      end
    );

 

[chaplin.u@gmail.com]

Спасибо но я никак не могу перевести это на С++. 

Нет ли примера для билдера ?

[chaplin.u@gmail.com]

Нашёл пример и сделал это окошко но только взгляните сколько кода нужно впихнуть вместо ваших 10 строк :

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Mobile_Tutorial:_Using_dbExpress_and_SQLite_(iOS_and_Android)