Delphi -当其他代码段正在运行时，如何请求用户输入

unit InputThread;

interface

uses
  System.Classes, Vcl.Dialogs;

type
  TInputThread = class(TThread)
  private
    FUserInput: string;
  protected
    procedure Execute; override;
  public
    property UserInput: string read FUserInput;
  end;

implementation

procedure TInputThread.Execute;
begin
  // 请求用户输入
  if InputQuery('用户输入', '请输入您的姓名：', FUserInput) then
  begin
    // 用户输入处理
    // 可以将输入保存到变量中，或者执行其他操作
    ShowMessage('您输入的姓名是：' + FUserInput);
  end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  InputThread: TInputThread;
begin
  InputThread := TInputThread.Create(True);
  InputThread.FreeOnTerminate := True;
  InputThread.Start;
end;