asynchrone Dialoge

[Olli73]

Delphi-Quellcode:

procedure TForm1.xyz;
begin
  TDialogServiceAsync.InputQuery('Title', 'Prompt', 'Default',
    procedure(const ARes: TModalResult; const AVal: array of String)
    begin
      if ARes=mrOk then
        Label1.Text := AVal[0]
      else
        Label1.Text := '';
    end);
end;