Assign_LeaveFieldHook


Purpose   Identifies a procedure that will be called every time the user
          leaves a field during field input.

Decln.    Assign_LeaveFieldHook(Proc:Move_Field_proc);

Remarks   Proc is the name of the procedure to Hook into the IO routines.
          The procedure must be declared far with 2 passed parameters; a
          variable type byte and a variable type byte. The procedure will
          be passed the field ID number that the user is leaving and a
          refresh code.

Example

    {$F+}
    PROCEDURE LEAVE_HOOK(VAR ID:BYTE;VAR R:BYTE);
    BEGIN
        IF ID = 21 THEN
           R := END_INPUT;
    END;
    {$F-}

BEGIN
    ASSIGN_LEAVEFIELDHOOK(LEAVE_HOOK);
END;

This procedure is only available for Turbo 5.0 programmers. Turbo 4.0
programmers should replace the procedure with the statement:

     IO_LEAVEHOOK := @LEAVE_HOOK;