Der XE8 Fehler-Thread

[Union]

Hast Du es mal so versucht:

Delphi-Quellcode:

InputQuery( 'Nutzer', ['Name:'], [''],
    procedure( const AResult: TModalResult; const AValues: array of string)
    var
      LItem : TListViewItem;
    begin
      if ( AResult <> mrCancel ) and (AValues[0] <> '') then
      begin
        LItem := NutzerListe.ListView.Items.Add;
        LItem.Text := AValues[0];
      end;
    end );

Bei der Cocoa-Implementierung kann man nämlich die TInputCloseQueryFunc übergeben, doch leider wird die nicht an den Delegate übergeben (konstant *nil*). Denn der akzeptiert nur TInputCloseQueryProc im constructor.