Einzelnen Beitrag anzeigen

Nanaki

Registriert seit: 23. Mär 2015
5 Beiträge
 
Delphi XE7 Professional
 
#1

InputQuery - Dialog Blockiert

  Alt 23. Mär 2015, 15:19
Erstmal ein freundliches Hallo ans Forum.

nun zu meiner Frage:

ich frage über ein Inputquery ein Benutzercode ab, auf dem Android handy erscheint dann die Nachicht: " Dialogfelder werden blockiert...."

nach ein bisschen suche habe ich dann rausgefunden das ich eine funktion an das Inputquery anhängen kann....

so siehts nun bei mir aus
Code:
InputQuery('Enter New Task', ['Task'], [mrOk,mrCancel],
  procedure(const AResult: TModalResult; const AValues: array of string)
  begin
    case AResult of
    mrOk:
    begin
      RestRequestDS(adqBenutzer, '*', 'EV_BENUTZER', 'REMOTEPASSWORT = ''' + RemotePasswort + ''' AND ZUGANGSCODE = ''' + AValues[0] + '''', '');
      if adqBenutzer.RecordCount = 0 then begin
        Showmessage('Zugangscode ist falsch !');
      end
      else begin
        Appgesperrt := False;
        Eingabe := True;
      end;
    end;
    mrCancel:
    begin
      Showmessage('Zugangscode ist falsch !');
    end;
    end;
  end
);
trozdem ich kriege ich immernoch die Nachicht das die Dialoge blockiert werden...

habt ihr ne Ahnung was ich falsch gemacht habe ?
  Mit Zitat antworten Zitat