Да, ураааа работает.Теперь все методы успешно вызываются и правильно работают, наконец-то
надо было действительно все методы формы описывать так,указывая сам объект:
Код:
var
N:integer;
.....
implementation
procedure keyctrl( nx: pointer);
var i:integer;
proc: procedure() of object;
begin
@proc:=nx;
proc;
videodriver.perebor2(); /// надо было так!!
showmessage(' работает keyctrl N='+IntToStr(N)); // почему N оказывается равен 0 ?
end;
procedure Tvideodriver.perebor2();
begin
N:=3;
end;
А почему переменная N=0 ????