С документации фастрепорт:
Поскольку все параметры представляются как массив типа Variant, вам надо
преобразовать их в объекты.
| Код |
fsScript1.AddMethod('procedure HideButton(Button: TButton)',
CallMethod);
{ обработчик }
function TForm1.CallMethod(Instance: TObject; ClassType: TClass; const
MethodName: String;
var Params: Variant): Variant;
begin
TButton(Integer(Params[0])).Hide; {КАК ЭТО НАПИСАТЬ НА СИ}
end;
|
Вопрос не в фастрепорте, а в том, как привести Variant к TObject, TWinControl ... и т.д. и т.п. |