抓狂小白的程式筆記

http://docwiki.appmethod.com/appmethod/1.16/libraries/en/FMX.Dialogs.InputQuery

 

InputQuery( 'Login', ['Username', #1'Password:'], ['', ''],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
     case AResult of
          mrOK:
            begin // 按下OK
            end;
        end;
    end);