asynchrone Dialoge

[Olli73]

So in etwa:

Delphi-Quellcode:

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