Проблема InputQuery в XE7

[Yarpda]

На сколько я успел найти информацию,  в XE7 теперь не используется блокирующих окон. 

для выполнения кода после нажатия кнопок нужно использовать Callback функцию ACloseQueryFunc;

 

Нашел нечто похожее про MessageDlg, но сделать по аналогии не удалось. Как мне передать в фун0кцию ACloseQueryFunc на какую кнопку нажал пользователь и

какой текст он ввел?

 

Подскажите пожалуйста.

[Alexey Lovchikov]

uses
  System.UITypes;

  MessageDlg('Вопрос', TMsgDlgType.mtConfirmation,[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1,
    procedure (const AResult: TModalResult)
    begin
      if AResult = mrYes then
      begin
      end;

      if AResult = mrNo then
      begin
      end;
    end
  );

Тоже самое и для TForm.ShowModal

[Yarpda]

uses
  System.UITypes;

  MessageDlg('Вопрос', TMsgDlgType.mtConfirmation,[TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1,
    procedure (const AResult: TModalResult)
    begin
      if AResult = mrYes then
      begin
      end;

      if AResult = mrNo then
      begin
      end;
    end
  );

Тоже самое и для TForm.ShowModal

 

Это понятно, хотелось бы живой именно на inputQuery, с получением введенной пользователем строки.  Похоже там всетаки есть особенности.

[Alexey Lovchikov]

InputQuery('Има пользователя',['Парам1', 'Парам2'], ['1','2'],
  procedure(const AResult: TModalResult; const AValues: array of string)
  begin
    if AResult = mrOk then
      ShowMessage(AValues[0]);

    if AResult = mrCancel then
      ShowMessage(AValues[1]);
  end
);

[Yarpda]

InputQuery('Има пользователя',['Парам1', 'Парам2'], ['1','2'],
  procedure(const AResult: TModalResult; const AValues: array of string)
  begin
    if AResult = mrOk then
      ShowMessage(AValues[0]);

    if AResult = mrCancel then
      ShowMessage(AValues[1]);
  end
);

Все отлично. Большое спасибо!