匿名方法实现多线程同步到主线程执行

高版本DELPHI提供的匿名方法，如果使用的好，可有效地节省代码。

procedure TCMServerForm.CMServerTransportDisconnectEvent(Event: TDSTCPDisconnectEventObject);
var
Index: Integer;
begin
if (FConnections = nil) or (Event.Connection = nil) then
Exit;

// 进入临界保护
System.TMonitor.Enter(FConnections);
try
FConnections.Remove(TIdTCPConnection(Event.Connection));

// 匿名方法同步到主线程执行

TThread.Synchronize(nil, procedure
begin
//update the connection list box, removing the connection that was just closed
Index := ConnectionsList.Items.IndexOfObject(Event.Connection);
if Index > -1 then
begin
ConnectionsList.Items.Delete(Index);

if ConnectionsList.SelCount = 0 then
SessionIdList.ClearSelection;
end;
end);
finally

// 退出临界保护
System.TMonitor.Exit(FConnections);
end;
end;

转载于:https://www.cnblogs.com/hnxxcxg/p/5670720.html