Android 4.2 vs 5.0+

[wschrabi]

Hallo,
habe mit XE6 einen InputQuery Dialog auf Android fein hingegriegt. Doch wie ich jetzt auf Seattle und Android 5.0+ umgestiegen bin, schreibt mein Android 4.2 Tablet, dass

Dialogfelder werden blockiert ist auf dieser Plattform nicht implementiert. AUf der Android Plattform werden nur Überladungen mit TINputCloseBoxProc oder TINputCloseBoxEvent unterstützt.

Was kann ich tun? Damit wieder der INput von Strings als DIalog möglich ist?
Danke
mfg
Walter

[DeddyH]

InputQuery

Zitat:

Wenn im Aufruf von InputQuery der Parameter ACloseQueryProc nicht enthalten ist, wird der Aufruf auf allen Plattformen blockiert; d. h., InputQuery kehrt erst zurück, wenn das Dialogfeld geschlossen wird. Android unterstützt keine blockierenden Aufrufe; Sie können InputQuery unter Android nur verwenden, wenn Sie den Parameter ACloseQueryProc angeben.

[wschrabi]

Danke, aber ich habe es so probiert um nicht viel umschreiben zu müssen, aber es klappt nicht.
Weiß wer was ich falsch mache?

Delphi-Quellcode:

function TForm1.MyInputQuery(line1: string; line2: string; var invar: string): boolean;
var
   myResult:boolean;
   myVal: string;
begin

InputQuery( line1, [line2], [invar],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
    if AResult=mrOK then
      begin
      myResult:=true;
      MyVal:=AValues[0];
      ShowMessage(' EIngabe: '+myval);
      end
    else
      begin
      myResult:=false;
      Myval:='';
      end;
    end);
    
 Result:=myResult;
 if Result  then invar:=myVal else invar:='';
 
end;

[DeddyH]

Du hast die verlinkte Doku nicht genau gelesen. Code hinter dem InputQuery wird bei der nicht blockierenden Variante ausgeführt, bevor das Dialogfeld geschlossen wird.

[wschrabi]

Ja danke, aber ich möchte dass der Programmablauf wieder anhaltet solange keine Eingabe getätigt wurde.
Ich hab die ganze Logik darauf aufgebaut.
WIe siehts damit aus? Bin am Knoblen und um jeden Rat dankbar.

Delphi-Quellcode:

function TForm1.MyInputQuery(line1: string; line2: string; var invar: string): boolean;
var
   myResult:integer;
   myVal: string;
begin
myResult:=3;

InputQuery( line1, [line2], [invar],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
       //repeat
          if AResult=mrOK then
            begin
            myResult:=1;
            MyVal:=AValues[0];
            ShowMessage(' EIngabe: '+myval);
            end
          else
            begin
            myResult:=2;
            Myval:='';
            end;
       //until ((AResult=mrOK) or (AResult=mrCancel));
    end);
    
 repeat
    case myResult of
      1: begin Result:=true; end;
      2: begin Result:=false; end;
      3: begin Result:=false; end;
    end;  
    if Result  then invar:=myVal else invar:='';
 until myresult <> 3;
 toast(' EIngabe getätigt!');
end;

[DeddyH]

Du kannst Dir beispielsweise eine Property samt Setter deklarieren. Innerhalb der anonymen Methode setzt Du dann den Wert dieser Property, damit wird dann auch der Setter durchlaufen.