delphi – ‘工作,请等待’屏幕与线程？

当搜索通过任何可用的同步技术完成时,您的搜索者线程可以通知主线程.最简单的方法是在线程类中定义一个方法,该方法在用户界面中停止动画,并在搜索器线程的Execute方法结束时将该方法传递给Synchronize.

您的搜索线程代码将是这样的：

type
  TMyThread = class(TThread)
  private
    procedure NotifyEndOfThread;
  protected
    procedure Execute; override;
  end;

implementation

uses MainFormUnit;

procedure TMyThread.NotifyEndOfThread;
begin
  MainForm.ShowAnimation := False;
end;

procedure TMyThread.Execute;
begin
  try
    {Add your search code here}
  finally
    Synchronize(NotifyEndOfThread);
  end;
end;

你的主线程的代码将是这样的：

TMainForm = class(TForm)
...
private 
  FShowAnimation : Boolean;
  procedure SetShowAnimation(Value: Boolean);
public
  property ShowAnimation : Boolean read FShowAnimation write SetShowAnimation;
end;

procedure TMainForm.SetShowAnimation(Value: Boolean);
begin
  FShowAnimation := Value;
  if FShowAnimation then
    {Add animation code here}
  else
    {Stop animation}
end;