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

时间:2015-06-19 03:18:32

标签: delphi dwscript

我尝试在注入"注入的TForm实例上设置一些属性。使用TdwsRTTIConnector和funcion进入脚本:

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');

下一个脚本工作正常,除了 f.FormStyle:= 2; 这一行,得到错误&#34;无效的类类型转换&#34;

 SELECT `recordTime`, DISTINCT `TreeHuggerId` FROM `SENSOR_TREEHUGGERS`
 WHERE `TreeHuggerId` < 20000 and `TreeHuggerId` > 10000
 ORDER BY `recordTime` desc

如何设置类似FormStyle或BorderStyle

的枚举属性

由于

0 个答案:

没有答案