delphi - DWScript 在外部 TForm 实例上设置 TFormStyle 属性

Question

我尝试在使用 TdwsRTTIConnector 和函数“注入”到脚本中的 TForm 实例上设置一些属性：

procedure TForm1.OnFunctionEval_ConnectForm(info: TProgramInfo);
var
  c:TComponent;
begin
  c := Application.FindComponent(Info.ParamAsString[0]);
  if not (c is TForm) then
    Info.ResultAsVariant := Null
  else
    Info.ResultAsVariant := TdwsRTTIVariant.FromObject(c);
end;

下一个脚本工作正常，除了f.FormStyle := 2;行 ，得到错误“无效的类类型转换”

showmessage('Step1');

var f:RttiVariant<Vcl.Forms.TForm> := ConnectForm('Form1');

f.AlphaBlendValue := 0;
f.AlphaBlend := True;
f.Hide;
f.Color := $00FFFF;

showmessage('Step2');

f.FormStyle := 2;
//f.FormStyle := TFormStyle(2);

f.Show;
f.AlphaBlend := False;

showmessage('Step3');

如何设置 FormStyle 或 BorderStyle 等枚举属性

谢谢