Как добавить в скрипт функцию SendToBack?

Q: Как добавить в скрипт функцию SendToBack?

Используйте код constructor TFunctions . Create ( AScript : TfsScript ) ; begin inherited Create ( AScript ) ; with AScript do begin with TfsClassVariable ( Find ( 'TfrxView' ) ) do AddMethod ( 'procedure SendToBack' , CallMethod ) ; end ; end ; initialization fsRTTIModules . Add ( TFunctions ) ;

Question: Как добавить в скрипт функцию SendToBack?

Answer:

Используйте код

constructor TFunctions.Create(AScript: TfsScript); begin inherited Create(AScript); 
with AScript do 
begin 
 with TfsClassVariable(Find('TfrxView')) do 
 AddMethod('procedure SendToBack',CallMethod); 
 end; 
end; 
initialization 
fsRTTIModules.Add(TFunctions);