FMX InputQueryAsync

InputQuery depreciated....

 

usess FMX.Platform;
procedure TForm1.Button1Click(Sender: TObject);
var
  TaskName: string;
  AsyncService: IFMXDialogServiceAsync;
begin
  try
//    InputQuery('작업을 입력하세요', ['작업관리'], [''],
//      procedure(const AResult: TModalResult; const AValues: array of string)
//      begin
//        if AResult = mrOk then
//          TaskName := AValues[0]
//        else
//          TaskName := '';
//
//        if not(TaskName.Trim = '') then
//        begin
//          FDQueryInsert.ParamByName('TASKNAME').AsString := TaskName;
//          FDQueryInsert.ExecSQL;
//          FDTable1.Refresh;
//          LinkFillControlToField1.BindList.FillList;
//        end;
//
//      end);

    if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync,
      IInterface(AsyncService)) then
    begin
      AsyncService.InputQueryAsync('작업을 입력하세요', ['작업관리'], [''],
        procedure(const AResult: TModalResult; const AValues: array of string)
        begin
          if AResult = mrOk then
            TaskName := AValues[0]
          else
            TaskName := '';

          if not(TaskName.Trim = '') then
          begin
            FDQueryInsert.ParamByName('TASKNAME').AsString := TaskName;
            FDQueryInsert.ExecSQL;
            FDTable1.Refresh;
            LinkFillControlToField1.BindList.FillList;
          end;

        end);
    end;

  except
    on E: Exception do
      ShowMessage(E.Message);
  end;

end;