Почему-то код, исправно работающий для WIN, не работает на ANDROID.
procedure AssignEventToComponent(C: TComponent; MethodName: String; const Evt: TNotifyEvent; OnlyIfNil: boolean = true);
var
M: TMethod;
begin
M := GetMethodProp(C,MethodName);
if not OnlyIfNil or (M.Code = nil) then
begin
TNotifyEvent(M) := Evt;
SetMethodProp(C,MethodName,M);
end;
end;
Есть какие-то особенности работы TMethod для ANDROID?