如何使用 TIdNotify

Question

我正在尝试使用 Indy 在 Delphi 2010 中编写线程应用程序。这两个对我来说都是新的，我正在努力同步 Vcl。我读过有关与 Vcl 同步、使用关键部分、TThread.Synchronize、TIdNotify 等的内容。 我想看看如何使用 TIdnotify 的示例。就我而言，我正在尝试从线程更新 TreeView。我搜索过群组/论坛，但没有成功。 任何例子将非常感激。 TIA

Answer 1

type
  TMyNotify = class(TidNotify)
  private
    FMyData: string;
  protected
    procedure DoNotify; override;
  end;

procedure TMyNotify.DoNotify;
begin
  FormMain.TreeView1.Items.Add(nil, FMyData);
end;

在你的主题中：

var
  MyNotify: TMyNotify;
begin
  MyNotify := TMyNotify.Create;
  MyNotify.FMyData := 'A new node';
  MyNotify.Notify;