14 lines
232 B
ObjectPascal
14 lines
232 B
ObjectPascal
|
unit u_lambda_any;
|
|||
|
|
{$reference WindowsBase.dll}
|
|||
|
|
|
|||
|
|
function f: integer;
|
|||
|
|
begin
|
|||
|
|
var d := System.Windows.Threading.Dispatcher.CurrentDispatcher;
|
|||
|
|
var res := d.Invoke(()->
|
|||
|
|
begin
|
|||
|
|
Result := 1;
|
|||
|
|
end);
|
|||
|
|
Result := res;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|